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lf you need more information about the UNZIP program 
which is used by our BOOT program to unpack the files, we 
suggest that you visit Diwyn Jones’ web site where you find 
more information about lots of interesting QDOS software 
and INFOZIP at http://www.dilwyn.uk6.net/arch/index.html 


‘Recently there has been some discussion on the QL-users email group about an 
electronic version of Jan Jones’ book, "QL SuperBasic - The Definitive Handbook’, 


The book was first published by McGraw Hill in 1985 and a few years later there was a 
limited reprint published by Quanta. For various legal and practical reasons Quanta could 
only sell it at cost price which was £8. Today you can buy a second hand copy of the 
Quanta reprint from Amazon for £40. 


Jan Jones’ book can no longer be called a definitive handbook. It was written long 
before the days of toolkits, the pointer environment, emulators and GD2 colours. Today's 
QL is very different from the QL in 1985, and, if anything, the present definitive work is 
RWAP software's SBASIC/SuperBasic Reference Manual. But it is a testimony to Jan 
Jones that her book is probably the most thumbed reference work among QL-ers. 


In the last 12 months there has been a lot of emphasis on electronic versions of QL 
reference works for which Dilwyn Jones must take much of the credit. An electronic 
version of Jan Jones’ book would be a valuable addition and Quanta is the best body to 
conduct any negotiations with her They have had a good track record including paying 
substantial royalties on each copy of the reprint. 


Quanta is currently in a difficult transition period, reported elsewhere in this issue, follow- 
ing the large rise in the subscription at the beginning of this year. However 120 people 
have shown their loyalty to Quanta by paying the increased subscription and that is no 
mean achievement after a quarter of a century. Especially now that it is the last remaining 
active national QL interest group. And should anyone doubt the relevance of Quanta to- 
day it should be remembered that the continued availability of Keyboard membranes is 
down to Quanta. 


Difficult times do not mean the end is necessarily nigh. About four years ago both QL 
Today and the Quanta Magazine were having serious problems that threatened their 
existence. Arguably both have emerged stronger from the crises. Unlike in the previous 
two years, this year we have had no hesitation in wanting to continue with a new volume 
of QL Today. 


Volume 16 has been a success. (The statistics are for the last four issues, that is, issue 4 
of volume 15 and issues 1, 2 and 3 of volume 16.) Our archive DVD was much apprecia- 
ted and once again the magazine was thicker than promised. We guarantee 128 pages, 
but produced 160. Almost 84% of these were editorial, a slight reduction in comparison 
with the previous year. There has been slightly less news coverage and like the Quanta 
Magazine, with whom we co-operate on news stories, we increasingly have to search 
out the news. We have a team of 6 regular writers and during the year a further 7 have 
contributed. We would like to see more of both. The occasional contributors have an 
important role in keeping the magazine fresh and varied in content. One welcome trend 
in the last six months has been the amount of copy that is coming in well before the 
deadline date. Thanks to all the writers who have done that. 


Thanks are also due to our loyal readers, some of whom have already renewed their 
subscription. Last year we had a slight rise in readership and one of the reasons we 
could run a thicker magazine than promised was the extra income from this. We hope 
you will remain with us and that next year we shall be looking forward to a volume 18. 


QL Games for Windows 


RWAP services have released a collection of 
commercial QL games to run on Windows PC’s. 
using a specially written runtime version of 
QemuLator The package of 10 games costs just 
£10. Rich Mellor says the release Is intended to 
dispel the myth that the QL was solely a busi 
ness computer but he also hopes that it will 
widen interest in the QL. 

"The idea behind the games pack (and the only 
way we could get the price so low, with the 
authors agreeing to substantially reduced royal- 
ties), was to make it have mass market appeal - 
ie. accessible to the wider PC market who may 
be interested to find out more about the QL 
and thereby to raise general interest in the QL 
itself.” 

He further adds that the decision to use Qemu- 
Lator was because of the co-operation from the 
author, Daniele Terdina: 

‘Daniele has worked hard to produce a runtime 
version of Q-emuLator which comes packaged 
with the games - there is no FIi/F2 screen, no 
access to the original games files, it emulates 
the original QL speed, and people would not 
realise that the games are running on a QL 
emulator,” 
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Rich Mellor added that he had considered using 
other emulators, but many games cannot be run 
on SMSQ-E and in any case QPC2 would be too 
fast. He already uses QLAY (or QL2K) when 
making QL adventures available for Windows, but 
that it is not suitable for arcade games because 
of the difficulty in altering the speed at which 
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keys are read by the machine. 
The package is not available for running directly 
on a QL system as the programs come in a 
single file containing the games and the emulator 
and cannot be extracted individually. 
RWAP service can still supply the games individu- 
ally in QL format, but have issued a caveat about 
a possible release as a package: 
‘Unfortunately, experience suggests that the 
majority of people who want to play games on 
the original QL have basically the standard 
black box, and no disk drives or disk interface 
(let alone extra memory as required for a 
couple of the games). | can still distribute 
games individually on microdrive, but they take 
a lot of time and effort to produce and then half 
the time, they no longer read when they are in 
the recipients hands, as the felt pad just 
disintegrates.” 
Peter Scott has uploaded a video of the games 
collection on YouTube: 
hitp://www.youtube.com/watch?v=y4svJOT3Stw&feature= 
player_embedded 
He has also written a review for this issue of QL 
Today. 
The games package is available at: 
hitp://www.sellmyretro.com/offer/details/Sinclair_ 
QL_Games_Collection_1-2152 


SMSQ/E Emulator 


for JAVA? 
Shortly before the QL Today 
news deadline date Wolf- 
mi. gang Lenerz announced 
== that he was developing an 
SMSQ/E emulator for Java 7, 
. to be called SMSQulator. 
Initially Wolfgang described tt 
as an adapted Gold Card 
version running in mode 4 on 
a 512 x 256 screen. There 
~ were problems with key- 
~ board handling and there 
was only a Native File ac- 
cess drive (NFA). The emula- 
tion was also slow, probably about that of a 
native QL. 
Following an appeal for technically skilled alpha 
testers he was able to report a fortnight later that 
progress was being made, and it was working 
under both Windows and Linux, but there were 
keyboard problems with a Mac. It was possible to 
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use a screen larger than 512 x 256 and basic, PE 
and WMAN were all working. Keyrow and mouse 
were also working and it was possible to move 
PE windows around the screen. However it was 
still running at less than an eighth of the speed of 
QPC2. There were also problems with some Qli- 
berated programs, QMON, and C compiled pro- 
grams. 


SUPERBASIC E-BOOK? 


Recently there has been discussion on the 
QL-users email group about the possibility of an 
e-book version of Jan Jones’ "QL SuperBASIC’ 
that many regard as being the definitive work on 
SuperBasic. 
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The book was first published in 1985 by 
McGraw-Hill who held the original copyright, but 
this reverted to Jan Jones in December 1987. In 
the late 1980s Quanta approached Jan Jones for 
permission to do a reprint of the book. It was 
with some reluctance that she agreed with a 
strict condition that her contact details were not 
to be revealed. Quanta also had some problems 
with distribution —be- 
cause of its status as a 
non-profit organisation 
for the benefit of its | Woe: 
members. To avoid hav- | som 

ing to pay VAT on all its Fey 
income Quanta COUId | ustessovice | 
only sell the reprint at | commosos | 
cost price and only to 
its members. The price | mars: 
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was fixed at £8 of 
which £5 were royalties | -tezteng 


- Europe: 
CONTACT . 


to Jan Jones and £3 


Maps Toolkit: 


Later Quanta made a second reprint, but this was 
by photocopy and was technically below 
Standard. 

The possibility of a further reprint or electronic 
publication is being put before the Quanta com- 
mittee, but no early answer was anticipated be- 
cause two of Quanta's officers were out of the 
country for an extended period. 


Subscription Problems 

Quanta is grappling with a problem of numerous 
members who have paid their 2012 subscription 
but not the full amount. When Quanta was foun- 
ded in the early 1980s a popular way of paying 
subscriptions was by standing order in which 
members could ask their bank to pay a fixed 
amount to Quanta each year. Following the first 
rise in the subscription for about a quarter of a 
century many members have failed to inform 
their bank of the increase. Quanta is temporarily 
registering them as creditors and informing them 
that to continue their membership they need to 
make up the difference. 

The problem was not unexpected. When a rise in 
the subscription was debated in the middle of the 
last decade, two officers argued against it preci- 
sely because they foresaw this problem arising. 
Almost three quarters of Quanta members have 
renewed their subscription at the new rates. 

A full report of the Quanta AGM appears else- 
where in this issue. 


Maps Web Page 


Just Words! has now launched its QL friendly 
maps page. This is a series of databases con- 
iaining outline maps in QL xy format corrected 
for the Mercator Projection that QL-ers can use 
in their own programs. It is possible to print out 
whole countries or extract smaller areas from the 
databases. 

A maps toolkit is available on the page contai- 
ning several programs/routines including a simple 
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Caynload Maps Toolkit (265Kb} 
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map display program that automatically calcu- 
lates the optimum scaling for a map. It is also 
possible to reduce the size of a database; ex- 
tract a small area from it; and convert a database 
into SuperBasic data lines. 
www.gwicks.net/justwords.htm 


Software Upgrades 

QStripper 

Norman Dunbar has updated his Qstripper 

program, which now can open PC as well as QL 

versions of Quill. He writes: 

I've updated QStripper and have finally got 

around to uploading the binaries as opposed to 

the plain old source code. 

_ The changes are simple: 

e The help~About screen now displays a 
version number The latest is version 1.01. 

e The application can now open PC Quill as 
well as QL Quill documents. 
Please note, however, until | get a definitive 
list, only some of the accented characters in 
the PC files will be translated. If anyone finds 
any that don't translate, let me know. | have 
managed to work out the PC versions of 
the following only: 


There are now versions for Windows 64 Dit, 
Windows 32 bit and Linux 64 bit. At present | 
don't have a 32 bit Linux installation to build 
and test on. :-( 

The download location is at 
https://sourceforge.net/projects/qstripper/files/ 

and from there you can pick your required OS 
version. 


FOR SALE 

M68000 Family Reference book, 1988, approx 
260 pages, gives full hardware data on M68000, 
M68008 and many peripherals. 

M68020 Users Manual, 1989 approx 350 pages, 
contains details of capabilities, operation and 
programming including instruction set and bus 
timing. 


In Linux, there are no support files required, just 
the executable. Under Windows, support files 
are required and there is a readme file in both 
Windows locations that tell you what you need. 
These support files are required by Windows 
only. You will only need them once until | start 
using QT 5, which isn’t available yet! 

Simple, but full, instructions are to be found in 
the assorted readme files at the download site.” 
Since the main news report was written Norman 
Dunbar has completed work on QStripper and 
launched a dedicated web site: 
http://qstripper.sourceforge.net 


TURBO 

George Guwilt writes: 

“Two faults in TURBO found by Michael Bulford 
(thanks) have been corrected in v5.07 which is 
available from my site” 

http://gwiltprogs.info/ 


Google Honours Spectrum 

St. George's day, the English patron saint, 
coincided this year with the 30th anniversary of 
the Spectrum. Google UK celebrated both on its 
UK home page. 


Both by Motorola, £4 each including postage to 
UK only. John, shortbutty@btinternet.com 

Maybe most of you forgot about it, but we still 
offer free private small ads to our subscribers. If 
you are searching for something, or you would 
like to sell or offer something, just send us a 


letter or an email with the text. 
It should, of course, be QL-related, somehow... 
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‘CURSER or CURSOR? , 
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Ina previous article (QLT vi6 i2 p18) we looked at the SCALE keyword and the differences between 
the way in which the QL handles text and graphics. No matter what the proportions of a screen in 
pixels the xy ratio for graphics is always 1.37:1. When we program in graphics we have to think not in 
pixels but in graphics units, and the number of graphics units on a screen can vary according to the 
height of the SCALE command. 


If we only — pro- 
grammed in graphics 
or only programmed 
in text we would have 
few problems, but 
more often than not 
we want to combine 
graphics and text on 
the same — screen. 
This can be a pro- 
blem best. illustrated 
by a screen shot from 
one of my own pro- 
grams (Fig, 1, to the 
left). 


Strictly speaking | 
would not call this a 
true QL graphic as it uses the BLOCK command ~ even the lines are very thin blocks ~ and blocks 
are ee in pixels for both placing and dimensions. However the graphic illustrates well the 
problems of trying to integrate graphics and text. The placing of a block can be adjusted by pixels, 
but text is placed by the AT command which, both horizontally and vertically, advances several pixels 
at a time. 


Now lets go a stage further and imagine a true QL graphic on the same screen - that is it uses LINE, 
POINT, ARC, CIRCLE , ELLIPSE or Turtle Graphics. The screen is 600 x 300 pixels but 146 x 100 
graphics units. To add to the complications pixels start at the top left hand corner of the screen but 
the origin of graphics units is fixed by the parameters of the SCALE command. You would have to do 
quite a few calculations to find the correct place to enter text and could soon find yourself using the 
sort of words, either under your breath or even out loud, that we are not supposed to use in QL 
Today. 

Fortunately SuperBasic comes to our rescue with the CURSOR keyword that, in effect, does these 
calculations for us. 

The syntax of the keyword Is: 

CURSOR [#channel, ][graphics_position, ]pixel_position 


It is an unusual keyword because you use it in a different way in pixel screens from graphics screens. 
In her book “QL SuperBASIC’ Jan Jones describes these as ‘simple’ and ‘full’. 


SIMPLE is used when you are only working in pixels and has a simpler syntax: 

[line number] CURSOR[#channel,] pixel_position. 

This simply moves the printing position to any desired place on the screen. If we look at the vertical 
axis on my graphic, which gives a percentage, then the coding is simple: 


5685 CURSOR 30,195 : PRINT "0" 
5690 FOR n=1 TO 9 : CURSOR 30,188-20%n : PRINT 10%*n 


The horizontal axis is a little more complicated: 


5745 title$="SWSEEALOHCBCMISSYHNWNEWASLSH" 

5750 r=1 

5755 FOR n = 68 TO 380 STEP 24 

5760 CURSOR n+4,210 : PRINT title$(2*r—-1) ; title$(2%r) 
5765 r=rtl 

5770 END FOR n 


If your graphic is a true graphic then you have to use the FULL 
syntax. 


In this case you set the initial cursor position not by pixels, but by | 
graphics units. You can then adjust the placing of the cursor | 
using pixels. It may seem strange that you have to program the f 
command in both graphics units and pixels, but the reason soon 

becomes clear with a practical example. 


In Fig. 2 (to the right) there is a map of the Benelux countries. 
This is a true QL graphic drawn using the POINT command. We 
are now going to add the three capital cities, Amsterdam, 
Brussels and Luxembourg. 


If my map reading is correct the bearings of these three cities 
are: 

Amsterdam: 52.4N, 4.9E 

Brussels: 50.9N, 4.2E 

Luxembourg: 49.7N, 6.1E 


We have to convert these into QL xy coordinates using the formulae: 


x=. 75*longitude 
y=(180/PI) *LN(TAN( (latitude*PI) /360+P1/4) 


When you see these formulae don't fall into the error of thinking | am a briliant mathematician and 
programmer. All the hard mathematical work was done by Hugh Rooms (QL Today v12 i3 p36). 


Using these formulae we arrive at the following coordinates: 


Amsterdam: 3.68,61.74 
Brussels: 3.15,59.32 
Luxembourg: 4.58,57.44 


We can now add these to our map using the commands: 


Amsterdam: CURSOR 3.68,61.74,0,0 : PRINT "x" 
Brussels: CURSOR 3.15,59.32,0,0 : PRINT "x" 
Luxembourg: CURSOR 4.58,57.44,0,0 : PRINT "x" 


The 0,0 in each case means there is no displacement and the | 
asterisk, a text character, that | have used to mark each city 
marks the exact location. (Amsterdam is difficult to spot, but it is 

there) : 


When we want to add a name to each city it becomes a little F 
more complicated. On our map Brussels is the easiest city 
because we have plenty of space for the name. We know the 
location is at X=3.15, y=59.32 and we need the name to be a little 
way away from this. We can work out roughly the displacement 
we shall need. QL characters are 10 pixels high and thus a | 
vertical displacement of just over 10 pixels is needed. Brussels 


has 8 characters which is equivalent to 48 pixels so a horizontal displacement of about 24 pixels could 
be used, 


When we are printing characters it is much easier for us to think in pixels than in graphics units and 
that is the reason that the initial placing of the cursor is done in graphics units, but the displacement in 
pixels. 


In practice this was the setting | used for Brussels: 
CURSOR 3.15, 59.32, -20, 12 : PRINT "BRUSSELS" 


Remember that when we are working in pixels the origin is at the 
top left hand corner of the window. This we have a negative 


value for the horizontal displacement. 
Similarly for the other two cities: 


Amsterdam: CURSOR 3.68, 61.74, -24, 12 : PRINT "AMSTERDAM" 


and 


Luxembourg: 
"LUXEMBOURG" 


CURSOR 4.58, 57.44, -30, 


In the last case | have printed the name above the city and not 
below and thus there is also a negative value for the vertica 


displacement. 


CURSOR is a helpful Keyword that saves us a lot of frustration 


and with a little thought is not difficult to use. 


Over the Christmas period | heard from a number 
of people who'd recently got a Kindle eBook 
reader and it occurred to me that it might be 
possible to prepare some QL manuals and arti- 
cles to be read on these devices. A busy few 
weeks followed as | set out to find out as much 
as | could about these devices and the file for- 
mats they supported and the result is the new 
QL eBooks section on my website. 


These days, many QL users are returnees (used 
to have a QL, stopped using it years ago, now 
looking to restart using the QL as a hobby ma- 
chine, or pure nostalgia) and new users who start 
using a QL as a retro machine or who have 
acquired one as part of a collection of older com- 
puters. So it makes sense to make QL documen- 
tation available in modern electronic formats. This 
helps avoid building up huge amounts of paper 
manuals, for example, not to mention the conve- 
nience of using modern electronic systems. After 
all, an eBook reader device can easily hold do- 
zens if not hundreds of books in a device which 
is about the size of a slim paperback book, com- 
plete with screen - amazing how the march of 
technology has allowed both a battery and 
screen to be included in a device little more than 
a quarter of an inch thick! 
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| am very grateful to several people who helped 
me with valuable advice to help get my efforts 
going - people such as Norman Dunbar, Adrian 
Ives, Lee Privett and Bryan Horstmann to name 
but four - thanks everyone. 


Having established that two file formats in parti- 
cular (.ePub and Mobi - which are in simple and 
vague terms zipped XML type files) allowed 
eBooks to be read on many different types of 
eBook platform such as Kindle, Android tablet 
and phone devices and even iPad. The Kindle 
uses a file format called ".azw’ but it can also 
handle one of the above formats too, so luckily 
that was one less file format to worry about. 


There are readers available for platforms such as 
Windows too, so it made it easy for me to test 
the files | created without having to buy a Kindle 
for myself. | already have an Android tablet com- 
puter which is good enough for eBooks, al- 
though its colour LCD display isn't quite as easy 
on the eye as a Kindle with its purpose made 
elnk display, Kindle screens are easier on batte- 
ries too than LCD screens! In fact, if you are 
thinking of doing some QL eBooks of your own, 
it is useful to have, say, the Kindle and Mobi 


Pocket readers installed on your computer. They 
are not as comfortable on the eyes as a real 
e-reader device, but they are great for testing 
how your eBook will look as a finished product. 
Some of these readers have facilities such as 
change fonts used and change text size and 
quite a few other options, so you can experiment 
a little to see how well your eBook will stand up 
to use on different systems. 


Get the Kindle for PC viewer free for PC, Mac, 
Android, Windows Phone, iPad and iPhone from 
Amazon at: 


http://www.amazon.co.uk/gp/help/customer 
/display.html/ref=hp_left_ac?ie=UTF8&nodeld 
=200487800 


Get the Mobipocket reader at: 
http://www.mobipocket.com 


One of the first things | was advised to do before 
trying to make an eBook was get hold of a 
program called Calibre {if you'd like to dabble in 
eBooks, get it from http://calibre-ebook.com/ .) 
While this isn't available for the QL, it's very easy 
to use and can convert many formats of eBooks 
between each other. | started off converting PDF 
and Word doc files but quickly found out that 
while this sort of worked, they weren't the best 
base file formats by any means. Calibre recom- 
mended working from HTML files - if you start 
off with a Word .doc file (as many of my QL 
documentation files are) you should use Word's 
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Figure 1: My Wikipedia QL book 


facility to “Save As Filtered HTML" which gives 
the best results so far Calibre lets you add such 
details as an eBook Cover (which can be as 
simple as a scanned copy of the original paper 
cover) plus author details, various descriptive 
search “tags” and a short text describing the 
book. It will not only convert HTML to the eBook 
formats mentioned above, it can convert from 
one format to another and it has quite a list of 
eBook formats it supports. 


Before I'd even got the project rolling to any de- 
gree (my first eBook effort was not worthy of the 
name, it was that bad), Adrian lves of Memory 
Lane Computing sent me some eBook files he 
had created as reference guides for his own use 
with permission to add them to my website. So 
the ball started rolling with as yet little input from 
my part. Norman Dunbar also helped when | sent 
him a copy of his DJToolkit software manual as 
an eBook and he kindly came back with plenty of 
help and suggestions. 


By now, a website was established at 
http://www.dilwyn.me.uk/docs/ebooks/index.himl 


in the Documentation section of my website. | 
was aware that not all devices will download 
direct from a web page like this, but in most 
cases it was possible to download these eBook 
files on a PC or Mac or Linux system and transfer 
the files to the eBook reader either by wi-fi or a 
USB cable link. By dropping the eBook into the 
Kindle folder on my Android tablet computer the 
Kindle app found and added the eBook to its list 
of books. Some of these devices and reader pro- 
grams will allow you to synchronise files across 
your various systems, making the eBooks availa- 
ble on all your devices capable of reading them. 


At this stage | hadn't realised how easily it would 
also work with iPads, until Lee Privett mentioned 
it, He went as far as to create a video on YouTube 
showing how to download the QL eBooks to 
view on an iPad to display on the iPad's iBooks 
and Kindle viewers — his video can be seen at 
htip://www.youtube.com/watch?v=_Oc_u1plqcU. 


So my web page started off with manuals such 
as the C68 guide, PDQC guide, Adrian Ives's The 
Shell manual and one or two others and many a 
late night followed preparing and editing manuals 
to add to the site. The list of what | wanted to 
add was getting very long, so it became a matter 
of prioritising and not tackling anything too big at 
that stage while | learned from my mistakes. 

One of my biggest mistakes was relying on the 


use of the Tab key to space out columns of text 
- such columns became ragged and irregular. 


Norman Dunbar to the rescue, who patiently 


explained that eBooks couldn't possibly be ex- 
pected to know what every possible Tab spacing 
was and which one | intended to use. So, | could 
either use a monospaced font such as courier 


and neatly space out columns of text, or | could 
use simple tables to arrange the columns neatly. 
Consider for example a list of keywords and a 
brief one line description of them. My original 
efforts looked something like this: 


PRINT-Write text to the screen 
DEFine PROCedure-Define a procedure in SuperBASIC 
BEEP-Make a simple bleep sound 


So much nicer if they can be in neat columns like this: 


PRINT Write text to the screen 
DEFine PROCedure Define a procedure in SuperBASIC 
BEEP Make a simple bleep sound 


So, what | did was to put such text into a two column table like this: 


PRINT 
DEFine PROCedure 
BEEP 


lf anyone else is interested in making further 
eBooks, here is a tip | quickly learned. If using 
Word {or a word processor with a similar facility), 
create these columns of text separated by a TAB 
(or other character which doesn't occur in the 
text) and then use the Convert Text To Table 
command in the — Table 
menu (INSERT ribbon in 
Word 2010), making sure 
that you indicate which 
separator you use bet- 
ween columns otherwise it 
won't Know where to 
break the columns apart. | 
tend to use two column 
tables to keep things sim- 
ple, but the above example 
could also have been a 
two column, three row 
table - most readers will 
cope with that, although it 
is always safer to keep 
things as simple as possi 
ble. Broadly speaking, as 
the Ebook readers render 
XML or HTML code, most 
fairly simple tables suppor- 
ted by a web page wil 
probably work OK, but | 
tend to err on the side of 
caution and keep it as sim- 
ple as | can. Of course, once you've got the 
layout how you want it to look you can then 
make the borders invisible by setting the border 
colour to invisible or ‘no colour’. 
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Figure 2: Amazon Kindle, version with 


Write text to the screen 
Define a procedure in SuperBASIC 


Make a simple bleep sound 


By now my confidence and experience were de- 
veloping quickly, so | thought a major project 
would be a good idea to test my knowledge 
leaned so far | happened to read an article in 
Computeractive magazine which showed how to 
use a Wikipedia facility to make a book out of 
selected Wikipedia pages - 
Wikipedia lets you do things like 
this as long as you quote them 
as the source of the information 
yOu use, 


So | selected all the articles | 
could find about the QL, Sinclair 
and his other computers into one 
book which turned out to be a 
little over 250 pages long. How 
to write a 255 page book in 
about 20 minutes! | exported it 
from Wikipedia as a single book 
(very neat facilities they've got 
for doing things like this) and fed 
it into my word processor, straigh- 
tened a few things out here and 
there, added an index (which | 
later found out | didn’t need to) 
and set about converting it to 
eBook. Eek - about 30MB long! 
Well, OK, just treat that as a fest 
of my eBook writing technique. 
Amazingly, it worked second 
time (first time | just forgot to give 
it a posh cover) and it took longer to upload the 
book to my website than it took to make it. 
ADSL upload is very slow compared to down- 
load speeds. 
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This book Is available to download from my 


website's eBooks page at 
the address above, free of 
charge. Anyone who'd like 
a copy and has no broad- 
band to download a file of 
this size is welcome to 
send me a CD and return 
postage to get hold of a 
copy. The book is called 
"The Sinclair QL (and other 
Sinclair products)’ 


By now the project was 
quickly gathering pace and 
Adrian lves was_ kindly 
sending me QL-elated 
eBooks almost as fast as | 
could add them to the 
website - quite a few of 
the eBooks on the site by 
early February were Adri- ; 
an's work, thanks Adrian. tes 


Then along came a major 
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project - the QL manual. Figure 3: Kindle with touch screen, so no 


The thought of scanning keyboard 

and OCRing such a huge 

work frankly terrified me, knowing how much 
time I'd spent on this during January. Of course 
there was the plain text QL manual already on 
my website which | toyed with adapting and just 
as | was preparing to tackle that, Paulo Proietti 
wrote from Italy saying he had done just this 
very project, so | nearly bit his hand off accepting 
the offer and quickly added it to the website. The 
only slight issue with this particular eBook is that 
you have to view it using a fixed pitch font to be 
able to correctly see the diagrams, and the 
pictures from the QL manual aren't actually 
shown as pictures, they are ASCII character 
diagrams. | suppose they are good enough for a 
basic manual, but | still longed to be able to make 
a decent QL manual available. Former Quanta 
Editor Tony Hill had prepared a full QL manual, but 
that is available to Quanta members only (good 
reason to join Quanta just to get that!!), 


Then, another remarkable piece of luck occurred. 
Adrian Ives had, for his own use, OCRed a QL 
manual from a scanned copy by Andy Dansby of 
the World of Spectrum website, but it needed 
tidying up. So again a number of late night edit- 
ing sessions followed until | had the Introduction, 
Beginner's Guide, Keywords and Concepts sec- 
tions prepared and ready to go. So | converted 
the Word doc files to PDF ePub and Mobi formats 
and added them to the web page as well. Then 
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another idea struck me — I'd had to make a Filtered 


_.-.. HTML copy to convert to eBook 
Th formats, so why not make it 
t, available as online HTML pages 
:. so that QL users who occasio- 
;, nally needed to refer to it (eg. 
need to look up the syntax of a 
not-often used keyword) could 
4} just visit the website to view 
4 that part of the manual on an 
% ad-hoc basis. With the Keyword 
& Guide, for example, | added a list 
_ Of keywords as links in the first 
3 couple of pages of the docu- 
3 ment, so that if you wanted to 
@ look up the TURNTO command 
you could just find it in the index, 
click on the link and it goes to 
the explanation for that parti- 
cular keyword. 


So, if you need to look some- 
thing up in the QL = manual 
without downloading it or 
fetching the big heavy paper 
manual out just visit the web 
page al 
http://www.dilwyn.me.uk/docs/ebooks/olqlug/index.htm 


- at the time of writing it has the four sections 
mentioned above, and soon | hope to add the Toolkit 
2 keywords guide (as most of us have Toolkit 2 in 
one form or another on our QL systems) and later | 
might tackle the Abacus, Archive, Easel and Quill 
manuals too, 


A possible enhancement of the initiative in the future 
will be to work through the process of getting QL 
eBooks available through the Kindle market via 
Amazon. | haven't had a chance to look at this yet, 
but it seems like a worthwhile venture if time allows. 


lf you'd like to read more about eBooks and file 
formats, have a look at this article from Wikipedia: 


htto://en.wikipedia.org/wiki/Comparison_of_e-book_formats 


| apologise for making mention of so many non-QL 
Subjects in this article, but | really hope that this 
initiative will help us all as QL users since many of us 
now have these devices since the prices became 
affordable. There must be times when we've all 
wished we had access to a convenient and portable 
copy of a document without having to keep a 
bookshelf or desktop full of paper! If you have 
created a QL-+elated eBook you'd like to make 
available, email me a copy to add to those already 
available from my website. 


The online QL community. 
Free to join, no 
registration neecied to 
view. 

Please stop by for a 
visit! 


Part Two: METAMORPHOSIS 


| have every single revision of the Ser-USB 
driver; every milestone, every fix, every failed 
attempt to overcome the persistent serial I/O 
handling issues. There were 363 revisions of the 
driver code between January iith, 2010 and 
October 4th, 2011, the day on which develop- 
ment of the 1.x series was formally brought to a 
close with the never completed v1.05, officially 
designated as 1.05.060-01. Over that time the 
driver's core was refined to become EDDE 
(Enhanced Device Driver Extensions) but the 
lion's share of the work was in trying to over- 
come the D3 Curse. 
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way around it. What | didn't know was that the 
implications of that problem would go deep into 
the very heart of the driver and would lead to 
another titanic struggle ... the Battle of the Slave 
Blocks. But that was still to come. 


There was a long break in development between 
June 2010 and February 2011 during which no 
development took place. At that tine we were 
relocating to Cornwall, so the Ser-USB project 
was mothballed. Development resumed on the 
Ath of February 2011 with a renewed determina- 
tion to finish what had been started. 


Here then are the highlights from the history of 
the driver's development from Fe- 
bruary to September 2011: 


_ 06-FEB-2011 v0.02.009 

e Trap #2 ioformt is implemen- 
ted. For the first time it is pos- 
sible to issue the command 
FORMAT USBI_ from 
S*BASIC. 


15-FEB-2011 v0.03.015 The Birth 
staveay Of the Queue Manager 
: This was the first version of the 
driver to incorporate the Queue 
Manager, my solution to the D3 
Curse. 


A mechanism was needed where- 
by it would be possible for the 
Ser-USB driver to make calls to 
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Ilustration 3: Ser-USB driver 0.02 reading a file 


Back then, in the early days, | knew about the D3 
Curse and that, somehow, | would have to find a 


the QDOS SER driver reliably, 
Zero timeouts (the recommended 
method) would not work because 
the call would never complete, 


Previous attempts to get around 
the problem involved switching 
back into user mode and doing 
the trap with a defined timeout. 
This actually worked, but almost 
always resulted in a catastrophic 
system crash either immediately 
or at some time later, presumably 


caused by re-entering the scheduler whilst it 
was supposed to be inactive. SMSQ >and 


Minerva didn't seem to mind this, and didn't 
crash, but | wasn't prepared to create a driver 
that was limited to running under those environ- 
ments. 


It's worth mentioning that this problem can hap- 
pen with any trap that re-enters the scheduler, 
particularly those that allocate and deallocate 
memory (for which there are vectored equiva- 
lents to be used from supervisor mode). 


The Queue Manager implemented a simple 
queue mechanism which was monitored by a 
separate job. Tansactions were placed into the 
queue, which were subsequently picked up and 
executed by the Queue Manager job. Because 
the QM was running in user mode, trap #3 calls 
to the serial driver worked fine. 


In the driver when a transaction was added to 
the queue, it returned immediately with errnc 
(Not Complete) telling QDOS to retry the opera- 
tion on the next scheduler loop. This became 
known as the “IOSS Retry Integration’ feature 
of the driver. (It's actually the forerunner of the 
final solution adopted in the 2.0 driver, which 
uses retry integration, but without a Queue 
Manager). 


Implementing the Queue Manager logic was 
relatively straightforward; the complexity came 
in handling the retries. It was necessary to sus- 
pend the driver's state before returning errnc 
So that it could be restored when QDOS sub- 
sequently re-entered the trap on each retry. On 
the face of it, this would require some hugely 
complex conditional coding to navigate a re-en- 
try path into the relevant part of the driver 
code and that meant rewriting most of the 
EDDE core, which would have taken a huge 
amount of effort. Actually, it would have meant 
starting again from scratch. 


Instead, | adopted a system called the "Save 
State Engine’. When a request was placed into 
the queue, the Save State Engine was called to 
save the driver's state. This involved not only 
saving all current registers, but also the stack 
right the way up to the top level. 


On re-entering the trap servicer code, the Save 
State Engine restores the contents of the 
stack, pops the registers and resumes exactly 
where the driver left off. 


The advantage of using the Save State Engine 
was that nothing had to be rewritten or even 
needed to have knowledge of what had 
happened. 


The Save State Engine was, in fact, the hardest 
thing to write because it had to be transparent 
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to the rest of the code. It was also the source 
of most of the problems with the whole Queue 
Manager solution. 


And there is one huge flaw. It relies upon 
QDOS re-entering an incomplete trap until all of 
the serial I/O has been completed, but what 
happens if QDOS doesn't do that? A trap #3 
call with a zero timeout (as | encountered later) 
and the doomsday scenario of “Out of Order 
Trap #3 Requests’, when more than one pro- 
gram is accessing the Ser-USB and they both 
issue trap #3 calls close together. The first call 
hasn't completed, so the Save State Engine is 
holding the driver's state, then along comes 
another request for a different transaction. 


All of these problems would eventually be 
solved, but a rocky road lay ahead. 


22-FEB-2011 v0.04.002 
e Fixed the INPUT bug caused by improper 
Slave block handling. 


e Problematic initial handshaking under JM 
QDOS is fixed (yet again!) with a better 
reiry and timeout mechanism. 


e USB_RESTART command allows the driver 
to be restarted if it didn't detect the Ser- 
USB, or if you forgot to connect it. 


¢ S*BASIC USB_PUTCMD, USB_GETCMD 
and USB_GETCMD$ interface to the driver 
layer is working. 


e Implemented an auxiliary stack to get 
around QDOS's dreadfully small supervisor 
stack allocation when calling into the driver 
(even the original QUBIDE code had ma- 
naged to exceed the 64 byte limit at one 
point). 

e Driver is now layered to enable the hard- 
ware interface to be replaced. 


¢ Default I/O mode is synchronous to pre- 
serve memory on low-end systems; asyn- 
chronous |/O functions are still available 
through the API for user programs. 


Version 0.04 was a very important step in the 
driver's development. It marked the first version 
that | was prepared to release to public beta, 
but also the first version to begin the separa- 
tion of the hardware and filing system layers 
that would ultimately result in the layered 
approach used by today’s EDDE driver core. 


One feature of this version survived right to the 
end of the 1x series: the Auxiliary Stack. 
QDOS places a limit on the amount of space 
that a device driver can use on the supervisor 


stack. Officially it's 64 bytes (which is utterly 
ludicrous) but, in practice, | found it to be safe to 
use at least twice as much. But 128 bytes is 

- not a lot when you are saving and restoring 
contexts with multiple long word registers and 
nesting calls four or five levels deep. 


The Auxiliary Stack used register a5 instead of 
a7 aS a pointer to an area of heap allocated 
when the driver was started. All instructions to 
save context within the driver (move/movem 
instructions with register sets) used ad instead 
of a7. This resulted in the supervisor stack only 
being used for return addresses and solved 
the problems associated with stack overflow. 
A5 had previously been used by the QUBIDE 
driver as a hardware base address pointer, so it 
was the obvious choice for this function, as 
Ser-USB had no need of such a pointer. 


13-MAR-2011 Draft 
Released 
To support the beta testers, the first version of 
the Ser-USB User Manual was released for 
public consumption. By this time the driver had 
advanced to version 0.07 and it was ready to 
be placed in the hands of a few brave testers. 


Ser-USB User Manual 


14-MAR-2011 v0.07.004 First Public Beta 
Release 
For the first time the driver was made available 
outside of Memory Lane Computing. From here 
on there was no going back. Completing the 


driver was now a matter of reputation. 


| don't mind admitting that | had been dreading 
this moment. This is the moment when all of 
your mistakes are laid bare and there is 
nowhere left to hide. 


28-MAR-2011 v0.08.018 Public Beta Release 
e Fixed several issues, including RENAME 
not. working and drive corruption if 

accessing a partition other than the first. 


e Some commands were renamed: 
USB_DRIVE was now split into 
commands: 

USB_-MOUNT and USB_UMOUNT. 
USB_QM_START was now QM_START. 
USB_QM_STARTED() was now 
QM_STARTED() 


© The driver could be unlinked from QDOS 
with the new USB_UNLOAD command, and 
the user could choose not fo mount a drive 
as USBi when loading. 


At the time, | remember being quite proud of 
the USB_UNLOAD command; probably the first 


two 


time that a driver could actually be unloaded 
safely, But these were also the early days of 
the Queue Manager, the user mode serial I/O 
sub-system that was intended to circumvent 
the D3 Curse, and there were still many pro- 
blems ahead. 


04-APR-2011 v0.90.003 Release Candidate 1 
At this point the version number jumped to 
bring it closer to the hoped for 1.0 release. 
Beta testing had been going on for three 
weeks and | believed that the worst problems 
had been ironed out. 


It hadn't been quite as bad as | had feared and | 
was optimistic that it would soon be possible to 
have a working product. | was wrong. 


08-APR-2011 v0.91.001 Release Candidate 2 
This release incorporated the remaining chan- 
ges that were necessary to completely split 
the hardware layer off from the file system dri- 
ver, meaning that the Ser-USB driver architec- 
ture now required only the replacement of a 
handful of hardware-specific functions in order 
to be re-used with different physical hardware. 
This was the first true incarnation of EDDE. 


There were one or two other changes as well: 


e One bug was fixed: A regression in RCI 
that prevented USB_RESTART from work- 
ing. 

e One final piece of legacy code was 
dropped: drvdrive_capacity now only 
returned a value in LBAs (the deprecated 
CHS value was no longer supported, re- 
moving the last remnant of the QUBIDE 
architecture). 


e Extensions and installable modules now 
used a link-loading system that reduced 
their size and allowed them to directly call 
much more of the core driver code (in parti- 
cular, the S*BASIC support routines which 
were not originally exposed through the 
driver's API and so had to be duplicated in 
previous versions). 


e@ The driver architecture was officially forma- 
lised around a new standard: EDDE (En- 
hanced Device Driver Extensions). 


© Extension file names were changed to re- 
flect the fact that they will work with any 
EDDE-compliant driver. 

e Ser-USB Partition Manager and Ser-USB 
Status Monitor program names were 
changed (both programs would work with 
any EDDE-compliant driver). 
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e Some API functions had different names, 
but their function codes and vector num- 
bers were unchanged. 


e The names of most of the S*BASIC com- 
mands were changed from USB_xxx to 
DRIVER_xxx to reflect the fact that they 
were now generic and applicable to any 
EDDE driver. 


Looking back, these were pretty big changes 
to have made just going from one release 
candidate to the next! 


12-APR-2011 Decision to withdraw support for 

standard QLs 
After reviewing a new tranche of reports from 
beta testing it became clear that my earlier 
optimism had been misplaced. There were big 
problems with the driver. If just didn’t work on a 
standard QL without a Hermes or superHer- 
mes. It is worth reproducing below my posting 
to the QL Users List at the time. | think it 
explains everything, especially the frustration 
that | was feeling at the time: 


It is with regret that | have to announce 
that | am withdrawing support for Ser-USB 
on QL hardware without superHermes (or 
better) enhanced serial ports. 


As of today the Queue Manager installable 
module, whose primary purpose was to 
support the base QL configuration, is also 
withdrawn. A final version had been deve- 
loped which incorporated a completely 
new method of IOSS retry integration that 
seemed to be working extremely well. 
Much better in fact, than any previous 
version - but once again the design of 
QDOS and the inherent unreliability of the 
standard serial ports prevented it from 
being useable. | have therefore decided 
that enough Is - very definitely - enough! 


It has been a long and very costly process 
attempting to develop this driver and with 
next to no interest in the device as a com- 
mercial proposition | can no longer devote 
resources to any further work. | will make 
Release Candidate 3 available later today. 
This will be the final version released to 
beta test. | will include the “last ever’ ver- 
sion of the Queue Manager as a curiosity, if 
you wish to experiment, but you will find 
these issues: 

- You cannot copy executable files in 
Q-emuLator This appears to be related to 
the way that the emulator intercepts 


fs.heads traps to save the header of a 
QDOS file on a DOS filesystem, but 


- .. executable files are corrupted when 
read back with the Queue Manager running 
on all configurations, but can be read fine 
without it. (Unfortunately that isn't much 
use, because you need the QM running in 
order to read the file in the first place on 
base QL hardware!) 


My plan is to make the public release of 
the (enhanced serial hardware only) driver 
available on the ist of May, at which time 
the source code of the core driver will be 
released into the public domain. 


Many thanks for your interest and assis- 
tance. 


This was not, of course, the end of the 
Ser-USB project, but it was a serious "wob- 
ble moment’ and it wouldn't be the last time 
that my exasperation with QDOS and those 
blasted serial ports would cause me to 
seriously consider abandoning it. 


13-APR-2011 v0.91.004 Release Candidate 4 
After receiving some feedback on the decision 
to withdraw support for base QL hardware | 
decided to take another look at the asynchro- 
nous I/O support to see if it could at least be 
made stable enough that it could be used with 
limitations. As a result, Release Candidate 4 
was produced: 


e The issue with executable files becoming 
corrupted when they were loaded from the 
Ser-USB through the Queue Manager ap- 
peared to be fixed. The most likely cause 
of this was an erroneously computed buf- 
fer pointer, although it remained a mystery 
why this did not present with other file 
types. 


e Inability to write executable files under 
Q-emuLator; | had absolutely no idea why 
this was happening except that it was rela- 
ted to Tap 43 fsheads which, under 
Q-emuLator appeared to be called and 
then abandoned. (| have since discovered 
that this behaviour is introduced by Toolkit |l 
which makes the call with a zero timeout 
and had absolutely nothing to do with 
Q-emuLator). Without the [OSS retrying that 
call, the result was that a hanging thread 
was left in the driver This was a problem 
related to another issue: “out of order Trap 
43 requests’ that still hadn't resolved. | 
couldn't fix this so | did the next best 
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(worst?) thing. If the driver detected that 
this had happened then it wrote an explicit 
message to the console, tried to unwind 
the suspended thread, and returned error 
code ‘In Use’. This unwinding was not al- 
ways going to be successful but it was 
better than leaving the user unaware that a 
problem had occurred. 


e The experimental (and completely unrelia- 
ble) support to address this issue (bit 7 of 
the Async I/O Mode} was removed. 


e Performance. | couldn't do anything about 
this. | couldn't do split baud rates (eg 19200 
write/4800 read), because that would have 
entailed constantly switching the USBWiz 
Baud Rate between operations and that 
would have killed performance completely. 
So, without decent serial hardware, the 
Ser-USB was limited to 4800 baud on a 
standard QL and that was that. (This is still 
true today). 


e The Queue Manager tasks were all re- 
named from USB_xxx to DRV_xxx. 


e |/O Queue Request entries were retained in 
the queue for 10 ticks instead of 1; this 
made it more likely that an IOSS Retry into 
qm_do_async_io would correctly pick up a 
completed request instead of not finding it 
and so assuming that it had completed. 
The downside was that the queue would 
Start filing up when there were high data 
volumes - something which | reasoned pro- 
bably wouldn't happen much at 4800 baud! 


e The Driver Status Monitor was updated to 
1.03; it now correctly cleared its window if 
there were no queue entries to display, and 
displayed the return code next to the 
status of a queue entry. 


At this point, despite my statement on the pre- 
vious day, it was my intention to keep the 
Queue Manager and standard QL support in 
the driver package (with a very strong disclai- 
mer). It was this decision that ultimately resul- 
ted in the Ser-USB becoming a product that 
people could actually buy. 


The ‘wobble moment’ had passed, but it was 
not to be the last. 


14-APR-2011 Prototype PCBs ordered 
An order was placed for PCBs to create a 
number of production prototypes. These would 
later become the Mark | Ser-USB and would be 
sold to early adopters. 


17-APR-2011 Feedback from QUANTA and an 
offer of a Hermes chip 


Rich Mellor e-mailed me with news from the 
recent Quanta meeting. It seemed that some- 
body was reading my development update 
postings to the QL Users list after all! He also 
obtained a Hermes chip which | subsequently 
purchased to support the ongoing develop- 
ment. 


18-APR-2011 v0.91.006 Release Candidate 5 


This release included what | believed to be a 
working fix for the issue of copying executable 
files. In fact, it included a fix for the whole "Out 
of Order Trap #3 Requests’ issue, that | hoped 
would improve Queue Manager stability for all 
configurations. The driver now reported "IOSS 
Retry Abandoned’ if it detected the problem 
but, in many cases, it would be possible to 
Carry on processing. 


This had been a horrendously complex issue to 
tackle and | will be honest in saying that, at that 
time, | was still no closer to understanding ’why’ 
the fs.heads problem existed at all. What was 
the logic in doing a filing system call with a 
Zero timeout and then not bothering to check 
the return value? Whenever any fix is imple- 
mented without understanding why something 
was broken to start with there is obviously a 
risk that it will be making an already bad situa- 
tion even worse but, under the circumstances, | 
decided that any fix was better than no fix. 
Especially as | really, really, wanted to bring the 
Ser-USB development to an end. 


This is how the fix worked: If the driver 
received a Trap #3 request that is for the same 
channel ID as a previous (but still suspended - 
i.e abandoned) request, the driver resumed the 
previously suspended request for one schedu- 
ler time slice, then returned "Not Complete’ but 
with the (unchanged) parameters of the new 
Trap #3 request. This told the IOSS to repeat 
the current request (timeout permitting) on the 
next slice of the scheduler's time. The whole 
process was repeated until the originally sus- 
pended request was finally completed, then, on 
the next scheduler slice, the new Trap #3 star- 
ted to be serviced. The solution used only the 
documented mechanisms for |/O under QDOS 
so | had hopes that it would be reliable. 


There were a few other very small changes 
under the hood to improve code organisation, 
and one small enhancement: MOUNT could 
now take a single parameter, so you could type 
MOUNT 1 instead of MOUNT 1,111 ! 


20-APR-2011 The Slave Block Argument 

Frustrated by QDOS behaviour regarding the 
way in which it decides when the driver will 
flush slave blocks, | posted details to the QL 
Users list. The response from Laurence Reeves 
that ‘| believe you are misusing slave blocks.’ 
left me incandescent with rage. | definitely over- 
reacted to this at the time (sorry, Laurence) but 
that didn't get me any closer to solving the 
problem: 


lf your driver uses the slave block system 
(which the EDDE core, as derived from QUBIDE, 
did) then you are required to implement a 
service that flushes them to disk. This service 
is called by QDOS whenever it needs to free 
memory. | have no problem with this as a 
concept, but the way that it is implemented in 
QDOS is that your flushing code is not allowed 
to make an error return. It MUST flush the 
blocks and return with them written to disk. It 
cannot defer the operation. 


This caused huge problems for the Ser-USB 
driver because that would require a lot of serial 
I/O, and serial I/O cannot complete while in 
supervisor mode! Up to that point slave blocks 
were flushed by creating a special class of 


On paper liane: mietnbarehip has fallen by 
about a third since the subscription was raised at 
the beginning of the year, but in practice few 
people have actually ended their membership, 
and there is a solid core of 120 fully paid up 
members. More than enough to ensure the 
organisation's future. 


The status of about a third of the members is 
uncertain. It is a penalty Quanta is paying for 
being around as long as the QL and for not 
raising its subscription for over 20 years. Way 
back in the 1980s a popular way of paying 
regular payments was by standing order You 
asked your bank to pay Quanta £14 each year 
and then you could forget about it. 


Unfortunately about 50 members have forgotten 
for a little foo long and have not informed their 
bank of the subscription rise. They have paid a 
subscription, but not enough to continue their 
membership. Quanta has to contact each of 
these members asking them to make up the dif- 
ference, and also suggesting that it is no longer a 


QUANT uncertain Future _ 


transaction in the Queue Manager using its 
‘Asynchronous Writes’ feature. In short, this 
meant copying the slave block to a buffer, then 
returning to QDOS and writing that buffer 
asynchronously. This pointless process did 
actually work ... until genuine writes became 
interspersed with slave block writes and the 
whole system got tangled up. The result was a 
deadlock that ultimately led to my decision to 
remove slave block support and implement the 
Private Slave Block system that is now used by 
all EDDE drivers. 


21-APR-2011 Decision to end the Ser-USB 

Project 
After the months of hard work that | had put 
into the project, Laurence's comment had a 
(completely unintended) effect on me. | decided 
to give up and call it a day. | announced to the 
beta testers that | was bringing the Ser-USB 
project to an end. 


This was the second, and definitely the worst, 
“wobble moment’. 


In the next issue you will be able to read how it 
all continued ... 


good way of paying their icaion because 
there is now a postal supplement which is likely 
to rise each year. 


Until this process is completed Quanta’s future is 
uncertain. On paper subscription income has 
fallen by 16% and the part payers are being 
registered as creditors. Without a knowledge of 
how many will make up the difference and the 
repercussions for finance it is difficult for Quanta 
to prepare for the future, but no one is predicting 
its demise. This year's AGM was marked by 
positive thinking. 


Attendance at the workshop was disappointing. 
lt was eerily reminiscent of the last days of the 
Byfleet shows where you had tables around all 
four walls, but no one in the body of the hall. In 
practice the attendance was about the same as 
the last two years. There were 21 people at the 
show dinner and the AGM was easily quorate, 
although the attendance at presentations was 
lower than last year. 


What appears to be happening is that shows are 
changing. There are fewer traders, but instead 
attendees are at their individual tables __ 
doing their own thing. This means there |. 
is much less circulation than there used | 
to be. 


At a committee meeting immediately | 

following the AGM, the committee | 
briefly discussed the future of shows. 
Dilwyn Jones reported on his website: 
"We also need to look at trying to find 
new venues for Quanta workshops | 
and would consider applications from 
individuals as well as from subgroups 
who can offer a suitable venue. The 
fairly low attendance this year also 
means we need to look for ideas on |}: 
how to try to encourage more QL | 
users (not just members) to attend.’ 


The problem is that the traditional way 
in which Quanta has organised its 
workshops no longer works. In the past they 
were organised by a local subgroup, but now 
Manchester is the only subgroup with the 
resources, suitable premises, experience and 
desire to run a workshop. The Quanta committee 
have taken no initiatives in trying to revive 
interest in a show south 
of Birmingham. 


One problem for Quan- 4 
ta is that UK shows & 
have never had the so- 
cial element that is/was 
present in most of the 
continental shows and _ 
the former North Ame- 
rican shows, where a 
camaraderie compen- 
sates for the small ; 
number attending. (lf . 
you want to know what | 
| mean by this go to 
www.kuel.org to disco- 
ver what will happen at 
the Austrian show) 


The two presentations at the show - a talk on 
large numbers by George Gwilt and on Memory 
Lane Computing by Adrian Ives - had a lower 
than usual attendance, but were found interesting 
by those who were there. Adrian had a “double’ 
show with a talk in the lecture room followed by 
a demonstration at his table of the QL-SD. Adrian 
reports that the main difficulties at the moment 
are the noise levels at the microdrive slot and 


The Chairman has had a 
makeover 


> Chairman keeps a: strict eye on her committee 


some problems with Gold Cards. He thinks that 
the former is caused by the proximity of the 
(2+ sve, Microdrive slot to the video circui- 
' try and he 


om may have to 
rca 
g 


recommend the use of the ROM 
Slot. The latter he was unable to 
reproduce on a borrowed Gold 
Card at the show. 


; One innovation at this year's 
workshop was a wifi network. It 
| was a fragile network because of 
; a weak signal at the scout hut, 
| but it did work. Early testing was 
i done on the QL Today laptop 
| situated at the far boundaries of 
the network. It seemed to be too 
weak a signal to be usable but in 
| practice | was able to get a relia- 
ble internet connection. 


In fact, if there was a theme at 

this year's AGM it was the elec- 
tronic future of Quanta. One of the greatest 
financial headaches for Quanta over the next few 
years could be the Quanta Magazine, its largest 
single expenditure. Printing costs of the maga- 
zine take up somewhere between a half and 
three quarters of its income. 


Editorially the ma- 
gazine is becoming 
increasingly strong 
with an enthusiastic 
team of Lee Privett 
as editor and Dil- 
wyn Jones as news 
i editor News now 
has a firm place in 
the magazine and 
1 Dilwyn has ma- 
& naged to complete- 
ly revive the maga- 
zine’s helpline, 
something that had 
eluded Quanta for 
about 15 years. 


It was clear from discussion at the AGM that 
members see the long term future of the maga- 
zine as being electronic publication. Quanta has 
SIX OF seven years experience of producing the 
magazine electronically, although uptake is still 
low. However in size and format the magazine is 
tailor made for use in e-readers and a massive 
rise in UK postal charges within days of the AGM 
will make it more attractive. Two suggestions 
made to increase interest in the electronic maga- 
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zine were a cover disk of back issues, and the 
placing on an e-book site for non-members to 
download for a fee. 


Progress on developing Quanta’s website has 
been disappointing or to use Quanta’s own 
words “pretty static for the last 12 months’. Keith 
Dunbar has now taken over full responsibility for 
the site and hopes to make more progress in the 
next 12 months, including implementation of the 
member's area. At the moment the news section 
of the site is fully operational and Quanta reports 
that several members are using the PayPal facili- 
ty on the site to pay their subscription. Quanta 
does not have detailed statistics of the number 
and locations of hits, but | can report that 12 
people have visited my website via the Quanta 
link. 


Much Quanta committee business is now con- 
ducted by email although there was some doubt 
about whether this was constitutional. The AGM 
approved a substantially revised constitution to 
enable electronic participation in all meetings in- 
cluding the AGM. The new constitution is de- 
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signed to give the committee more flexibility in 
its decision making, has simplified the wording of 
some clauses and removed ambiguities from 
others. These include the notorious clause 5.3 
which took 47 words to say that the officers 
serve a three year period of office and did it 
without using the word "three’. 


Members voted to keep the three year term of 
office for officers and increase the term for ordi- 
nary committee members from one year to two. 
They also increased the maximum period a 
person can serve on the committee from six 
years to nine. 


S Seth Se SES Fe 


The Quanta Maga 


The last of these averted a crisis over the chair- 
man as Sarah Gilpin was due to step down 
having served six years on the committee. She 
now can remain in office as does Alison Sou- 
thern as secretary. Keith Dunbar has resigned as 
treasurer to take over full responsibility for the 
website following the resignation of Dan Abbott. 
John Gilpin has returned as treasurer, Dilwyn 
Jones remains as news editor and helpline coor- 
dinator; Lee Privett as Quanta Magazine editor; 
and Dave Buckley as librarian. 


The next couple of years will not be easy for 
Quanta as it adjusts to a possible lower member- 
ship and income, but morale remains high. 120 
people have shown that Quanta means some- 
thing to them by paying the increased subscrip- 
tion and that is a solid basis for a strong organi- 
sation. 


Norman's [NDI answers 
comments on Assembler — Part 30 
[GG] Norman's article Part 30 on Assembler 


though short is both interesting and useful, Here 
are a couple of comments. 


1, The use of ‘in wint_gwasl_libs_cls_in’ to re- 
place the two commands ‘IN’ and ’LIB’ Is a good 
idea, and one | had not thought of Not only does 
it save typing but it also prevents lines inadver- 
tently, and wrongly, being inserted between the 
commands on any alteration to the code. 


2. | agree with Norman's remark on page 23 
regarding equates. In my library | have one 
SYM_LST file which contains only a very small 
proportion of the symbols produced on assembly 
of the relevant source code. If | alter this source 
code and forget to edit out the unwanted lines in 
the new SYM_LST file | tend fo get a large 
number of errors signalled when | \Nclude it in 
another assembler file. This will be because 
many of the symbols in the SYM_LST file are the 
Same as ones in the assembler code in which 
the SYM_FILE is Included. It would indeed be 
useful to have a way of automatically excluding 
the unwanted EQUates. However, since the main 
use | make of SYM_LST files is to help me debug 
programs using QMON, | do not want to reduce 
the contents of a SYM file during assembly. Nor, 
for the same reason, do | want to position the 
exclusion in the program producing the 
SYM_LST file. This means that we need yet ano- 
ther program to trim a resulting SYM_LST file. 


After reading Part 30, | devised a very simple 
way of doing the job. To indicate which labels are 
to be included in the amended SYM_LST file | 
determined that each label be marked in the 
original source code by an EQUate whose name 
is the required label headed by a short string, 
such as ‘LB_” and whose value is that of the 
relevant label. 


Thus, in Norman's program | would add the lines 


LB_CLEAR_SCREEN EQU CLEAR_SCREEN 
LB_CLEAR_TOP EQU CLEAR_TOP 
LB_CLEAR_BOTTOM EQU CLEAR_BOTTOM 
LB_CLEAR_TO_EOL EQU CLEAR_TO_EOL 
LB_CLEAR_LINE EQU CLEAR_LINE 


After assembly there would appear in the 
SYM_LST file 


to Georees IGG <a 


%+$00000000 


LB_CLEAR_SCREEN EQU 

LB_CLEAR_TOP EQU ¥+$00000004 
LB_CLEAR_BOTTOM EQU ¥+$00000008 
LB_CLEAR_TO_EOL EQU ¥+$0000000C 
LB_CLEAR_LINE EQU ¥+$00000010 


A simple S*BASIC program would copy these, 
and only these, lines from the complete 
SYM_LST file to a new file having stripped out 
the initial "LB_”. 


[ND] | think | have an easier way of extracting 
the library routine equates while missing the 
potentially common stuff, as the following exam- 
ple may hopefully show: 


CLS_SCREEN EQU § $00000020 
CLS_TOP EQU $00000021 
CLS_BOTTOM EQU  $00000022 
CLS_LINE EQU $00000023 
CLS_END EQU $00000024 
INFINITY EQU ss $FFFFFFFF 
CLEAR_SCREEN EQU  %*+$00000000 
JUST_DO_IT EQU  *+$00000012 
CLEAR_TOP EQU  *+$00000004 
CLEAR_BOTTOM EQU  *+$00000008 
CLEAR_TO_EOL EQU %*+$0000000C 
CLEAR_LINE EQU %*+$00000010 


lm thinking that all the code routines themselves 
have a different format for their equate, being an 
offset from * while the others do not have such 
an offset. 

As long as you want all the code routines in the 
library to be exposed then simply write that small 
SuperBasic (or indeed, assembler) program to 
search for and extract only those lines containing 
"EQU’ and "*+$" perhaps? 

| assume it's not possible for a SYM file to con- 
tain a negative offset? 


[GG] It would seem unlikely. 


[ND] Using this proposal, I'd expect to extract 
only the following: 


CLEAR_SCREEN EQU *+4$00000000 
JUST_DO_IT EQU %*+$00000012 
CLEAR_TOP EQU  *+$00000004 
CLEAR_BOTTOM EQU *+$00000008 
CLEAR_TO_EOL EQU  %*+$0000000C 
CLEAR_LINE EQU  %*+$00000010 


Which does expose JUST_DOLIT in addition to 
the others, | admit. 
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having said that, | like George’s proposal to 
indicate which routines are to be exposed by 
EQUating therm to a new label which has a 
- common prefix fo allow easy extraction. That 
way, you can easily hide the JUST_DOL_IT routine 
that is exposed by my proposal. 


| think | like George's idea better! ;-) 


[GG] My problem was that the program | wanted 
included by LIB contained about 20 times as 
many labels (all headed by *+$ in the SYM_LST 
file) as the few which were needed. So | definitely 
did not want all the *+$ entries. So, not having at 
the time thought of any other means of 
extraction, | laboriously edited the SYM_LST file 
ee QD. 
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would perform arithmetic on quite large integers. | discuss here how 7 
these could be incorporated in assembler code which could be CALLed by S*BASIC. This is a step 
towards practical use of the routines. 


However, before embarking on this | should explain an addition made to the assembler routines 
already described. This amendment is intended to speed up division when the divisor is a power of 2, 
and this includes the number one. 


Amendment to Base Routines 
Just before the label divs4 seven instructions have been inserted as shown after move! did7. These 
use the extra code at divs8 or divs9 as required. 


Insertion 
move. 1 d1,d7 p2 (position of top bit) 
beq divs9 divisor = 1 
movea.l ai,a0 AQ -» divisor 
moveq #0,da1 to get number of bits 
move.W sze,d0 size of numbers 
bsr gbit 
subq.w #1,d1 L-DIG?? 
beq divs8 . yes — special action 
divs4 movea.l  (sp),a0d AO -» dividend 
Extra Code 


Here the divisor is 2°f [f»0 and equals 32%w + b]. 

The following code shifts the dividend down f bits if the divisor is 
less than the dividend. Otherwise the remainder equals the dividend 
and the quotient is zero. 

DO.L contains w | b where w is the complete number of long words in 
the shift and b is the remaining (0 to 31) bits. 


Noe Nee Nee oe Nee Noe 


divs8 movea.l  (sp),a0 AO -» dividend 
move.W sze,d0 
moveq #-1,d1 
bsr gbit get position of 1st bit (p1) 
cmp. 1 di,da7 
bet divs_endi quotient = 0 & remainder = dividend 
movea.l (sp),a0 AO -» dividend 
move. 1 a7, a0 w | b (shift of w lwds & b bits) 
move .W sze,d1 r 
subq.w #1,d1 r-1 


swap d2 W 

sub.w d2,d1 r-w-1 

lsl.w #2,d2 4%w lwd shift in bytes 
adda. w d2,a2 adjust answer pointer 


move.1 dé, d2 remainder mask 
ror.1 dQ, d6 top mask 
move.1 d6,da7 
not.1 a7 bottom mask 
moveq #0,d5 set previous top to zero 
bra divsil 
divs10 elr.1 (a0)+ clear lwd of remainder 
divs11 move. 1 (a0) ,d3 next long word 
ror.1 dO, d3 do bit shift 
move.1 a3,d4 
and.1 dé, d4 keep top bits for next long word 
and.1 a7, a3 keep bottom bits for this long word 
or.1 d5,d3 add in the top bits 
move. 1 d3, (a2)+ insert answer 
move.1 a4, a5 prepare for the next long word 
dbf di,divsi0 
and.1 a2, (a0) adjust msw of remainder 
bra divs_endi exit 


; Divisor is 1 
3 This copies the dividend to the quotient and sets the remainder to zero 


divs9 movea.1  (sp),a0 AO -» dividend 
movea.l a2,al Al -» quotient 
move.W sze,d5 
lsl.w #2,05 
lea (a0,d5.w),a0 —> end of number 
lea (a1,d5.w),al " 
bsr copy copy dividend to quotient 
bsr elrnm clear remainder 
bra divs_end1 exit 


Now we can return to describing the use to be made of the assembler routines. 


CALL Routines 


One way of using CALL to access different routines in a piece of assembler code is to CALL the 
code at the various addresses of the different routines. Thus, one might perform addition by: 


CALL asad+ad_address 
and subtraction by: 
CALL asad+su_address 


where the relative addresses of the two routines in code loaded at asad are ad_address and 
su_address respectively. 


If an amendment in the code changes the addresses of the routines the S*BASIC commands would 
have to be changed too. It would save the need to change the S*BASIC instructions if the assembler 
code could be CALLed always at the same address. Thus, my suggestion is that the different 
operations are made available not by altering the CALLed address, but by altering the first parameter, 
which is arranged to be the operation number. 
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This will make it easier to construct the S*BASIC program. But what of the arithmetic? How do we set 
and where do we store the integers? How long are they? What, in short, is the means of communica- 
tion between the assembler code and S*BASIC. 


| have set the assembler code to arrange for a specified number of stores to contain numbers each of 
a specified size expressed in long words. The assembler routines will, of course, set the integers as 
requested by S*BASIC. If there is an error, or if a question is asked, the relevant information is returned 
in a word at ansi, which is at byte 2 of the assembler code. In one case the complete answer is the 
decimal representation of a number. In that case the length of the number is given in the word at ansi 
and the address of the string of digits is given in ans2, which is at byte 4 of the assembler code. 


Operations 
All operations are requested by up to five parameters in the CALL command, which is, generally, 


CALL address,pn,A,B,C 
The operations allowed by the assembler code are these: 


pn _ Name Operation 

O INITIAL Set B spaces of A long words each 
1 ADD B+C- A 

2 SUBTRACT B-C-> A 

3 MULTIPLY B*¥C-> A 

4 DIVIDE Quotient of B/C- A 

5 PUT B-> A 

6 COPY B-> A 

7 ZERO A is cleared 

8 NEGATE A is negated 

9 TEST A is tested with -1, 0 or +1 put to ans1l 
10 DECIMAL A is converted to a decimal string 


11 COMPARE ansi is set 0 if A = B and i otherwise 
12 ADJUST B* 109+C- A 


13. =MOD Remainder of B/C-> A 
14 POWER B7~C-> A 
15 SIZE Sets ans1 to the number of long words in an integer 


16 RANGE Sets ansi to the number of stores 
17 COUNT A-1-»> A with result of TEST in ansi 
18 COUNTB A-B-» A with result of TEST in ansi 


In most of these operations A, B and C are indicators of stores containing the numbers involved in the 
operation. Thus the first store is referred to as 0, the second 1 and so on. The exceptions to these 
values of A, B and C are the three following operations where the parameters may be the values 
required and not pointers to stores: 


a) INITIAL where both A and B are the values to be set. 
b) PUT where B is the number to be set in store A. 
c) POWER where C is the integer power to which the integer in B is to be raised. 


Initial 

The operation INITIAL has to be activated before any other operation will work. It asks for space from 
the heap which is allocated as follows. First there is a number of bytes, rounded up to even, sufficient 
to hold a string of decimal digits representing the largest number which can be held in the number of 
long words requested as the size of integers. Then follow spaces for four numbers, called spi to sp4 
and to be used as working space. The remainder of the space is earmarked for the user integers. 


Format of Program 
The program checks the parameters, performs the requested operation and returns to S*BASIC. 
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Code 


bra start 
ansi ds.w i error code or length of decimal string 
ans2 ds.1 1 address of start of decimal string 
sze de.w 0 number of long words in number 
totn de.w 0 number of user number spaces 
adr0Q de.1 0 address of alchp area 
sp4 de.1 0 address of sp4 
sp3 ds.1 1 w sp3 
sp2 ds.1 1 7 sp2 
spl ds.1 1 " spl 
adr1 ds.1 1 address of ist user number 
progs equ 18 highest operation number 
nme_e equ sp4 address of the end of nme 
sp4_e equ sp3 " sp4 
sp3_e equ sp2 " sp3 
sp2_e equ spl Wy sp2 
sple equ adr1 " spi 


3; This macro sets up a table of relative pointers to the operations 


kst macro number 
k\@ set 9) 
pre de.w p0-prg 
macl here 
k\@ set k\@+1 
de.w p|k\@~-prg 
if k\@\1 
goto here 
endif 
endm 
kst progs 


j The program code starts here. 


start emp.W #progs, di 
bhi bad_exit ——> Number too high 
move.W sze, dd Has INIT been done? . 
bne st3 yes, OK for all progs 
tst.w di Is it operation INIT? .. 
bne bad_exit ——-—> ar eNO 
bra po INIT 


Now test parameters 
The table tstp contains one byte for each operation. This byte 
determines which of the last three parameters are to tested for being 
in range. 
The value 7 indicates all 

3 indicates the first two 

1 indicates the first only 

O indicates none 


Nee Nee Nee ee ee ee we we 


tstp de.b 0,7,7,7,7,1,1,1,1,1,1,3,7,7,;3,0,0,1,3 


; At this point D1.L contains the operation number and D2.L - D4.L the 
; values of the remaining parameters. 


st3 lea tstp,a0 test table 
movem.1 d2-4,—-(sp) parameters to stack 
moveq #2,45 count of 3 
move.b (a0,d1.w),d0 
stl move.1 (sp)+,d6 next parameter (D4 to D2) 
lsr.b #1, d0 test next bit 
bee st2 no test needed for this parameter 
sub.w totn, d6 is pointer in range? . 
b1t ste . . yes 
bset #31,d5 mark error 


st2 dbf d5,st1 count three parameters 
tst.1 d5 error found? . 
bmi bad_exit ——> - yes 
3; Get program 
add.w di,d1 2kxoperation number 
lea prg, a0 jump table address 
adda.w (a0,d1.w),a0 add relative pointer 
jmp (a0) jump to operation 
bad_exit moveq #-15,d0 bad parameter 
rts return to SXBASIC 


} Supporting the programs below are six subroutines listed at the end. 


relsp returns it 


Mee ee ee ee we we 


NW hrWAY EF 


set_ad sets number pointers to addresses relative to adri set in A3.L 
getsp gets space from the heap and . 


set_sgn codes the signs of B and C before a multiply or divide and. 
rst_sgn uses this information after the operation 
LB4 finds the decimal digits in a number 


3 When an error occurs the return to S*BASIC is via bad_exit1 which sets 


3 -15 in ansil. 


KEKE KKK KE RKKERK ERE 

* INITALISE (pO) * 

KKK XK RK KEK KRKK KE KEK 

ligt de.w 30103 100000*1og2 
1g2 de .Ww 3125 100000/32 


D2 = sze 


pO sets sze, gets heap space and sets space pointers 
: D3 = n (number of user number spaces) 


If sze = 0, its stored value is cleared and space is returned to the heap. 


po move .W sze,d1 
tst.w d2 
bne po_4 to set new space 
tst.w di old sze?... 
bne relsp clear and finish 
moveq #0, 40 
rts 
po_4 tst.w d3 any spaces requested? . 
beq bad_exit ——> - no 
tst.w di is there space allocated now? . 
beq p0_5 + . no 
bsr relsp return space 
po_5 
lea sze,a3 
move.wW a2, (a3)+ set sze 
move.w a3, (a3)+ totn =n 
move .W d2,d0 sze — DO.W 
mulu.w 1gi,d0 
divu.w 1g2,d0 
addq.w #1,d0 
move.w d0,d7 no of decimal digits needed 
addq.w #1,07 
belr #0,d7 make even 
ext.1 d7 
moveq #4,41 
add.w a3,da1 n+4 
mulu.wW d2,da1 (n + 4)¥sze 
lsl.1 #2,da1 no of bytes 
add.1 a7,dai add the name space 
bsr getsp get the space needed 
beq po_i OK 
po_3 lea sze,aQ 


clr.w (a0) mark no space 


bra bad_exit ——-> 
po_t move.1 a0, (a3)+ set adrO (address of ALCHPd space) 
adda.1 d7,a0 D7.L —» end of name space 
lsl.w #2,d2 bytes / integer 
moveq #4,€40 for 4 spares (spi to sp4) and adrt 
po_2 
move. 1 a0, (a3)+ set addresses (spl to sp4 & adr1) 
adda.w d2,a0 to next address 
dbf dQ, p0_2 
moveq #0,d0 
rts exit 
HXRKKEEKEREEE 
* ADD (pi) * 
KEKKK ER KEKE RY 


3 plA=B+C 
3 D2-> A:D3—- B: DA-» C 
3; NOTE any of A, B and C may be equal to one of the others. 


pl lea addnm, a5 
pil bsr set_ad 
; Copy B to sp4 
lea (a3,d3.w),a0 AO -» B 
lea (a0,d5.w),a0 AO —> B end 
movea.1 sp4_e,al 
bsr copy 
3 C + or — sp4 to sp4 
lea (a3,d4.w),a0 AO -> C 
lea (a0,d5.w),a0 AO -> C end 
movea.1  sp4_e,al 
jsr (a5) add or subtract 
bne bad_exit1l —--> 
3 Copy sp4 to A 
lea (a3,d2.w),al Al-> A 
lea (a1,d5.w),al Al - A end 
movea.l  sp4_e,a0 
pi_2 bsr copy 
bra pend exit setting ans1 
HXKRKKKEKERKERERE 
* SUBTRACT (p2) 
HHKK KKK EKER KEKE ER 


3 pec-Bo A 
3 D> A: D3—> B: DA- © 
3 NOTE any of A, B and C may be equal to one of the others. 


p2 lea subnm, a5 
bra pi 

KER KK ERR RK RXR KEKE 

* MULTIPLY (p3) * 

KXEXKEX EKER KEKE RE 


;p3B*¥C—> A 
» D2 => As De) Bt De ape 


p3 bsr set_ad 

bsr set_sen ABS(B and C) and mark D5. TOP 
3 Clear sp4 

movea.1  sp4,a0 

bsr clrnm 


;B¥C— sp4 
lea (a3,d3.1),a0 AO — A 
lea (a3,d4.1),a1 Ai —- B 
movea.1  sp4,a2 
bsr muls B * C to sp4 


move ecr,—(sp) keep error code 


bsr rst_sgn reset B and C 
move (sp)+,cer restore error code 
bne bad_exitil —-—> 
3 sp4— A 
lea (a3,d2.w),al Al— A 
lea (al,d5.w),al Al — A end 
btst #17,d5 negate? .. 
beq p3_1i » . no 
movea.1  sp4,a0 
bsr neg 
p3_1 movea.1  sp4_e,a0 AO -» end of sp4 
bra ple2 
HEX KHER ER KERK 
* MOD (p13) * 
KKK RHK ERE ERY 


3 pi3 MOD B/C to A 
3 D2-> A:D35 B: DA- C 


p13 moveq #~1,d6 mark MOD 
bra p4_i1 
HRRKKEKKKEKKERE 
* DIVIDE (p4) # 
KEKKKK KERR RR ERK 
; p4 B/C —> A 
3 D2 -> A: D3-—- B: DA- CG 
p4 moveq #0, d6 mark DIV 
p4_1 
bsr set_ad 
lea (a3,d4.w),a0 AO - C 
bsr tstnm 
beq bad_exit1 --—> Cc =0 
emp.w d3, a4 Boe C2 4-3 
beq p4_5 .. yes 
bsr set_sgn ABS(B and C) and mark D5.TOP 
3 copy B to sp4 
movea.l  sp4_e,al Al -> sp4 end 
lea (a3,d3.w) ,a0 AO -» B 
lea (a0,d5.w),a0 AQ - B end 
bsr copy B-> sp4 


3 clear sp3 
movea.1 sp3,a0 
bsr clrnm 


3 sp4/C to sp3 with remainder to sp4 
movea.1  sp4,a0 
movea.1 sp3,a2 


lea (a3,d4.w),al 
bsr divs 
bsr rst_sgn reset B and C 
3 copy sp3 to A (quotient) DIVIDE (D6 = 0) 
3 copy sp4 to A (remainder) MOD (D6 = -1) 
p4_6 lea (a3,a2.w),al Al-— A 
lea (al,d5.w),al Al — A end 
tst.1 dé 
bmi p4_2 MOD 
btst #17,d05 negate? . 
beq p4_3 . . no 
movea.1 sp3,a0 
bsr neg 
p43 movea.1  sp3_e,a0 
bra pi_2 


3 MOD 


p42 btst #16, 05 
beq p4_4 
movea.1  sp4,a0 
bsr neg 

p4_4 movea.l sp4_e,a0 
bra pl2 


3; B = C so DIV = 1 and MOD = 0 


p4_5 movea.1  sp4,a0 
bsr clrnm 
movea.1 sp3,a0 
bsr elrnm 
move.w #1,-2(a0) 
belr #16,d5 
belr #17,d5 
bra p4_6 

HE XKK EK KKK KKK EK KERR 

* PUT NUMBER (p5) ¥ 

HRKKK KKK KKK EKER EKER 

3 p> N put inaA 

5 D2 -> A: D3, —> N (number) 

pd move.W sze,d5 
lsl.w #2,05 
mulu.w d5,d2 
movea.1 adr1,a3 
lea (a3,d2.w),a0 
bsr elrnm 
move.1 a3,-(a0) 
moveq #0,d0 
rts 

HK KK KKK KKK KKK KKK ERK 

* COPY A to B (p6) * 

KXKKK RAK KKK RR ERERRER 


3 p6 copies A to B 
3; D2 - A: D3 —- B 


negate? . 
» no 


set answers 


relative address 
base address 
AO-—- A 

sets AO — end 
enter number 


pd bsr set_ad 
lea (a3, d2.w),a0 
lea (a0,d5.w),a0 AO -> A end 
lea (a3,d3.w),al 
lea (a1,d5.w),al Al — B end 
bra copy 
HEKKKKKK KKK EX 
* ZERO (p7) * 
KHEKKK KKK KK KKK 
3 p7 zeroes A 
3 D2 - A 
p7 bsr set_ad 
lea (a3,d2.w),a0 AO — A 
move.W sze,d0 
bra p7_i 
p7_2 elr.1 (a0)+ 
p7vi dbf d0,p7_2 
moveq #0,d0 
rts 
HKRK KKK EK KKK R EK 
* NEGATE (p8) * 
HH RK KEK RIKER RK 
3 p& negates A 
; D2 - A 
ps bsr set_ad 
lea (a3,d2.w),a0 AO — A 
bsr neg 
bra pend 
j 1 
ee : 
i aie, 32 


* TEST (p9) * 


AO —- A 
provisional answer 


KEXHRE EKER ERK 
3 po tests A 
; The result (-1 ,0, 1 or -2) is put in the word at ANS1. 
3; D2 - A 
3; The result is; 
3 1 = positive non zero 
3 O = zero 
j -1 = negative (can be negated) 
} ~2 = largest negative (can't be negated) 
po bsr set_ad 
lea (a3,d2.w),a0 
p9_2 moveq #-2,d2 
bsr tstnm 
bmi p9_1 
bne p9_e1 +1 
bra p9_e2 0 
p9_1 tst.w do 
bmi p9_e4 -2 
bra p9_e3 -1 


p9_e1 addq.w #1,d2 
p9_e2 addq.w #1,d2 
p9_e3 addq.w #1,d2 


p9_e4 lea ansi,a0 
move .W a2, (a0) 
moveq #0,d0 
rts 

KKK KKKKK KKK KER EERE 

* TO DECIMAL (p10) * 

KKK KKK KK KKK KEK KERR 


plO sets a number to a decimal string 


; The address of the start of the number is in ans2 


> 
3 The length of the string is set in ans1 
? 
’ 


; D2— A 

pio bsr set_ad 
lea (a3,d2.w),a0 
lea (a0,d5.w),a0 
movea.l  sp4_e,al 
bsr copy 


; Set D3 and negate if needed 
moveq #0, 43 
movea.l  sp4,a0 


bsr tstnm 
beq pi0_2 
bpl pi0_1 
moveq #-1,d3 
tst.w do 
bmi pi0_1 
movea.1  sp4,a0 
bsr neg 

p10_t movea.l  sp4,a0 
bsr 1b4 

p10_3 lea ans1,a0 
move.1 nme_e,d0 
sub.1 a2,a0 
move .W dO, (a0)+ 
move.1 a2, (a0) 
moveq #0, d0 
rts 

p10_2 movea.l nme_e,a2 
move.b #'0',-(a2) 
bra p10_3 

Sabie i aa — = = 


AO —- A 
AO — A end 
A -» sp4 


provisionally + 


test the number 
print zero 

positive non zero 
set negative marker 


don't negate 


negate 


set decimal string 


- to ansil and. 
. String address to ans2 


zero digit 


Pa 3 


KK KK KR KRERERRR ER EE 
* ADJUST NUMBER (p12) x 
KKKKK KKK KE KK KKK KERR RRR EK 
3 pl2A=B* 109+C 


3} D2-> A: D3—> B: 


ten9 de.l 

pl12 bsr 

3 Set 10°9 in sp3 
movea.1 
bsr 
move. 1 


; Put B¥10°9 in sp4 
movea.1 
lea 
movea.1 
bsr 


; Add C to sp4 
lea 
lea 
movea.1 
bsr 
bne 


3 Put this to A 
movea. 1 
lea 
lea 
bra 


KKK KKK KEK KEK RK KEKE 
% COMPARE (p11) * 
KKKKKKKKKE KK KR KKKE 
3 pil tests whether 
3; D2 - A: D3 -> B 


pil bsr 
lea 
lea 
moveq 
bsr 
beq 
moveq 

pli. lea 
move.wW 
moveq 
rts 


KX RRKERE KEKE KRY 
* POWER (p14) * 
HRKK KERR EKER EEK 
3 p14 sets B*C to A 


3 D2- A: DB-—> B: 


p14 move. 1 
bmi 
bsr 
lea 
bsr 
beq 
bpl 
lea 
bsr 
bset 
btst 
beq 
bset 


Dd4—- ¢ 
$3b9aca00 1079 
set_ad 
sp3,a0 
clrnm 


ten9,-4(a0) 


sp3,a0 AO -> 10°9 
(a3,d3.w),al Ai — B 

sp4,a2 A2 —> sp4 

muls 

(a3,d4.w),a0 AO -> C 

(a0, d5.w) ,a0 AO -» C end 
sp4_e,al Al — sp4 end 
addnm 

bad_exit1 ——-» 

sp4_e,a0 AO -» sp4 end 
(a3,d2.w),at Al —- A 

(al, d5.w),al Al —- A end 
copy Set answer and return 
A = B or not 

set_ad 

(a3,d2.w),a0 AO— A 
(a3,d3.w),al Al -> B 

#0, a7 provisionally equal 
comp 

pitti Equal 

#1,d7 Mark not equal 
ansi, a0 

a7, (a0) 

#0,d0 


(C is the explicit power) 


D4 — C 
d4,d6 Keep C and clear D6.TOP 
bad_exit1 ——-> 
set_ad 
(a3,d3.w),a0 AO — B 
tstnm 
bad_exit1 —-—-> B must not be zero 
pi4_6 + 
(a3,d3.w),a0 AO ~— B 
neg 
#16,d6 mark to negate B at end 
#0, 46 odd power? . 
p14_6 . . no 


#17,d6 mark answer to be negated 


rT 
api taany 
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p14_6 move.W a6, d4 


beq p14_0 to 1 
movea.1 sp4_e,al 
lea (a3,d3.w),a0 
lea (a0,d5.w),a0 AO -» end of B 
bsr copy B-— spl 
moveq #1,07 
move.w a7,d6 

p14_1 add.w d7,da7 2, 4, 8 ete 
cmp.wW d4,a7 too far? .. 
bet p14_2 . . yes 
move.w a7,d6 keep the power so far 


movea.1  sp4,a0 
movea.1 a0,al 


movea.l sp3,a2 for answer 
bsr muls square again 
bne p14_9 — OOPS! 
movea.l sp3_e,a0 
movea.1 sp4 e,al 
bsr copy copy sp3 to sp4 
bra p14_1 next power of 2 
p14_2 sub.wW a6, d4 remaining multiplications 
bra p14_3 
p14_4 lea (a3,d3.w),a0 AO -> B 
movea.l  sp4,al answer so far 
movea.1 sp3,a2 mult —» sp3 
bsr muls 
bne p14_9 ——> OOPS! 
movea.1 sp3_e,a0 
movea.1 sp4_e,al 
bsr copy update answer 
p14_3 dbf d4,p14_4 count extra mults 
; Put answer to A 
p14_5 lea (a3,d2.w),al 
lea (al, d5.w),al Al - A end 
movea.1  sp4_e,a0 
bsr copy Set answer 
bsr p14_10 Reset B if needed 
btst #17,d6 negate answer? . 
beq pend - . no 
lea (a3,d2.w),ad restore B 
bsr neg 
pi4_8 bra pend 


3 Power is 1 
p14_0 movea.l  sp4,a0 


bsr elrnm 
move.W #1,-2(a0) 1 in sp4 
bra pi4_5 
3; Error exit 
p14_9 bsr p14_10 reset B if needed 
bra bad_exitil —-—-> 


; This restores B to negative if needed and sets DO 
p14_10 moveq #0,d0 


btst #16, d6 
bne p14_11 
rts 
pi4_11 lea (a3,d3.w),a0 
bra neg 
HRKKK KER ERE RRK 
* SIZE (p15) * 
KEK KEKE KERR KEK 


3 pi5 sets sze in ansl 


pid lea ansi,a0 
move.w sze, (a0) 


oo erate 
ey 
- mae 


ae 


moveq #0, d0 
rts 


RRR KRKRRRKR KER 


* RANGE (p16) ¥ 
KERR KER EEE 


3; p16 sets totn to ans 


p16 lea ansi,a0 
move.W totn, (a0) 
moveq #0, a0 
rts 

XHRK KX KKERERERE 

* COUNT (p17) * 

KKK HERR ERR KEKE 


3 p17 subtracts 1 from A and returns 0 in ansi if zero 


p17 bsr set_ad 
movea.1  sp4,a0 
bsr elrnm 
move.wW #1,-2(a0) set sp4 = 1 
pi7_1 lea (a3,d2.w),al 
lea (a1,d5.w),ai to end of A 
bsr subnm subtract 1 from A 
Movea.l at,a0 set A to AO 
bra p92 
KXEXKK ERE KK ERE 
* COUNTB (p18) * 
KHER ERK KHER EEK 


3 pl8 subtracts B from A and sets the result of tstnm in ans1 


p18 bsr set_ad 
lea (a3,d3.w),a0 
lea (a0, d5.w),a0d -» end of B 
bra p17_1 


3; At end set ansl to error code 
bad_exit1 moveq #-15,d0 


3 Exit setting error code from DO in ansl 
pend Lea ans1,a0 

move.W a0, (ad) 

moveq #0, d0 

rts 


KRKKK KK KK KKK KK KEKE 


* END of PROGRAMS * 
ERK HK KRK KEK RR RE RK 


HRKKKKKKKKKKKEK 

* Subroutines * 

KK KR KKK KKK KKK K 

5 Set_ad converts D2 — D4 to relative addresses of A, B and C 
3 It also sets D5.W to the number length in bytes 

3 and sets A3 to adri 


set_ad move.W sze,d5 
lsl.w #2,05 number of bytes 
mulu.w d5,d2 convert to. 
mulu.wW d5, 43 . » relative . 
mulu.w a5, a4 . . addresses 


movea.l1 adri,a3 
rts 


gsp_reg reg d2-3/a1-3 


getsp movem.1 gsp_reg,—(sp) 
moveq #-1,42 this job 
moveq #mt_alchp , dO 
trap #1 
tst.1 do 
movem.1  (sp)+,gsp_reg 
rts 


j relsp releases space and clears both sze and adr0 
3 no registers save DO are used. 
3; On exit DO = 0 and condition codes are set 


relsp_reg reg di-3/a0-3 
relsp movem.1 relsp_reg,—(sp) 
lea adr0,al 
movea.l  (ai),a0 
elr.1 (a1) 
lea sze,al 
elr.w (al) 
move.1 a0,d0 
beq relsp1 
moveq #mt_rechp, dO 
trap #1 
relspi movem.1 (sp)+,relsp_reg 
moveq #0,d0 
rts 


} set_sgn sets absolute values of B and C and codes D5.TOP to signal 
3 Signs for DIV, MUL and MOD 


3 Code BC 
3 OO ++ 
2 01 a ad 
>; 10 +- 
5 il -+ 
set_sgn swap d5 
clr.w a5 
tst.1 (a3,a3.w) B 
bpl set_sgnl + 
addq.w #8, 05 mark —B 
lea (a3,d3.w), a0 
bsr neg negate B 
emp .W a3, d4 B=(C?. 
beq set_sgn6 . . yes 
set_senl tst.1 (a3,d4.w) C 
bpl set_sgn2 + 
lea (a3, d4.w), a0 
bsr neg negate C 
set_sgn6 addq.w #4,45 mark —C 
set_sen2  subq.w #4,05 just -C? . 
bne set_sgn3 . . . no 
addq.w #2,05 mark B/-C 
set_sen3 subq.w #4,05 just -B? . 
bne set_sen4 .. . no 
addq.w #3,d5 mark —B/C 
set_sgn4 subq.w #4,05 -B and -C . 
bne set_sgnd » . no 
addq.w #1,05 
set_sen5 swap d5 
rts 


; rst_sen (reset sign) negates B and C if need be. 


rst_sen 


rst_sen3 
rst_sgnl 


rst_sgn5 


rst_sen4 


rst_sgn2 


c_neg 


b_neg 


move.1 d5,d7 


swap a7 

andi.w #3,07 keep the two-bit code 
bne rst_sgn1 something to do 

rts 

emp.W d3,d4 B=C?. 

bne rst_sen4 aaas it 

empi.w #1,07 

bne rst_sen5 

addq.w #2,a7 set 01 to 11 

bra rst_sen4 


empi.w #2,07 


bne rst_sen4 

clr.w a7 

subq.w #1,a7 $2 

bne rst_sgn2 » + no 

bsr b_neg negate B 

bra e_neg negate C and return 


subq.w #1,d7 
bne b_neg 3 so negate B 


emp .W d3,d2 


beq rst_sgn3 
lea (a3,d4.w),a0 negate C if not equal to A 
bra neg 


emp.W a4,d2 


beq rst_sen3 
lea (a3,d3.w),a0 negate B if not equal to A 
bra neg 


; LB4 decimalises a number 
; D3 is negative for a negative number. 


; The digits are found from the least significant end and 


? 
, 
; AO — the absolute value of the number 
, 
a 


; Placed backwards in the name space 


LB4 


LBO 


LB1 


LB2 


; Here Di. 


LB3 


LB5 


movea.1 a0,a5 

MOVEA.L nme_e,A2 -» end of name space 

MOVEQ #10,D2 

MOVE.w sze,D0O 

add.w dO, dO number of words in number. . 
subq.w #1,d0 ». ol 

MOVEQ #0,D1 

MOVE.W (A0)+,D1 Next word 


DBNE DO, LB1 Find 1st non-zero 
BEQ.S LB3 Finished 
DIVU D2,D1L Divide by 10 


MOVE.W D1,-2(A0) Set remainder at start of next word 
MOVE.W (A0)+,D1 Get next word 
DBF DO, LB2 Count sze%2 words 


TOP contains the next decimal digit 


SWAP D1 

ADDI.B #0", D1 

MOVE.B  Di,-(A2) Store digit 

MOVEA.L  sp4,A0 Reset pointer to number 


BRA LBO 

TST.B D3 Negative? . 
BEQ LB5 . . no 
MOVE.B #'—',-(A2) 

rts 


QL gaming fans are spoilt for choice at the mo- 
ment with the steady supply of re-released 
games from RWAP software. The latest tasty 
nelee is cee a bit aiferent 


Sinclair QL Games Collection 1 is a compilation of 
10 classic arcade style games. The collection 
consists of a single installation file with a built in 
runtime engine based on Q-emuLator by Daniele 
Terdina. The games are selected with a single 
button and there is no need for any extra set- 
tings or configuration. 


Once installed the collection runs showing a tidy 
menu screen which has pictures of each game 
plus the instructions, each game runs with a 
single click and when closed returns back to the 
menu. The collection consists of 10 games with a 
wide choice of game play. The games are: 


Cuthbert in Space - a single screen shoot ‘em 
up which has you fending off aliens while 
collecting fuel and treasure. 

Deathstrike - a slick scrolling shooter based on 
Scramble with enemy installations to shoot while 
collecting fuel. 


QL Hopper - a Frogger clone with a frog need- 
ing to be helped across a busy road to safety. 
Hoverzone - a fast paced scrolling shooter 
where aliens try to capture people from the 
surface. 

Jungle Eddi - a colourful pretty multi screen 
adventure which sees you leaping about to 
escape the jungle. 

The King - a Donkey Kong based game {no not 
Elvis) in which you leap over thrown barrels to 
save the girl from a giant ape. 

The Lost Pharaoh - a speedy maze game with a 
lost tomb to be explored and treasure to be found. 


Ql Games Collection 1- Review _ 


caeises * oe 
: we ae ; =o =a 
q a oy x ites ce omnet 


by Rater Seat : 


QL Pengi - Pengo style | maze game where a 
cute penguin has to survive each level by 
crushing the baddies with sliding blocks of ice. 
Stone Raider Il - Boulder Dash based head 
scratcher which sees you digging paths to 
collect diamonds while avoiding traps and rocks. 
QL Vroom - Fi style racing game similar to Pole 
Position. 


DERTHS TRIKE 


; Bs D»CHAPLIN AND. T.BOVENGOON. 
HALL OF FAME ewes: 


Bozaga FEET 
nooo. 
BOeoee 
Bpeaae 
Beaeao - 
nogaed 
Hogemg 
‘aaneoo 


L 
| 
| 
a 
8 
6 
oe 
-# 
— oe 


Each game runs at a good pace and modern 
high resolution displays are provided for with the 
addition of a graphics filter to avoid pixilation at 
high resolutions. Most of the games were new to 
myself and | was surprised by how crisp they 
looked on my PC with bold bright colours. 


Being a PC only program there is no way to play 
the games on an original QL but the compilation 
has been developed to showcase the QL and its 
games to people who will be unfamiliar with the 
system. That said at £10 (£1 per game) the 
compilation is superb value for money and 
should appeal to existing QL fans as well as 
potential new users. 


| Using tine Parallel Printer Port 


In part 4 of my series, 2c nteriace for al enuletors | have 
shown how you can use an LCD Display using the PCF8574 
device with an RS232 serial to 12C converter that provides an 8 bit parallel |/O port. However you can 
have a simple 8 bit only output port from QXL, QPC2, Qemulator and Super Gold Card equipped QLs. 
So aLCD display can be used in a similar manner. Or for that matter any other application that requires 
a simple output port. This is what | will cover in this article and also expand a little more on using LCD 
displays, which can also be applied to 12C users. | should point out | have not been able to get this to 
work with Qlay or QL2K. | have not spent a great deal of time looking at these two emulators in this 
regard, so it is not to say, that with some effort they cannot be made to work. But the systems | have 
tested and know work will, | think, cover most QL/SMSQ system users. 


Let me start with QXL, QPC2 and Qemulator users, since this is the simplest, because in all these 
cases we are using a PC's hardware, which works in a slightly different manner to the Super Gold 
Card's printer port as far as implementing a parallel output port is concerned. 


First your PC must have a parallel printer port. This will be a 25 way female D-Type connector on your 
machine. If you do not have one, then a USB to parallel converter may work. However if you use one 
of these, do ensure that in the Device Manager of your PC operating system, under the Ports (Com & 
LPT) shows 'LPT1’. Not all do. 


SO for QXL, QPC2 and Qemulator users you only need the following “ees “#etive bw 


interface. Nata Line @ _ 
| have shown the strobe line, but in the case of PC based systems tata tine 1 ¥ 


this is not required. The grounding of the various control lines gives 
us latched outputs. The following listing will make the data lines go 
up and down. If you put an LED, anode to the data line and via a a 
resistor of say 4700hm to ground, the LED will flash. To enable the — te Line s 

‘PAR’ device to work you must ensure TK2 !s running. isteitea® 


10 TK2_EXT Data Line 6 
20 OPEN#3;par 

30 REPeat loop 

40 PRINT#3;CHR$(255) ; 
50 PAUSE 25 

60 PRINT#3;CHR$(0); 
70 PAUSE 25 

80 END REPeat loop 


a 


Data dine 200 2 


Data Line ? - 


If you are a Super Gold Card user then things get a little more 1 
complicated. The parallel printer port on the Super Gold Card only Gna 
has the data lines and the strobe line. It does not have the other 

control lines that a standard PC parallel printer port has. So it will not 

provide the latched output that the PC parallel port can. However having the strobe line we only need 
to add a latching circuit. 


The signal timing from the SGC is shown in the graphic to the ria 


right: —_— Strobe Line 


So the data lines are set, and the flip flops in the latch are Data 
then clocked by the strobe line. This latches the output from cee 
the flip flops low or high as required and hold that state until 
another data and strobe event take place. The circuit to 


achieve this is shown on the next page. 


Ee 4 (oo ee 


~ 100uS * 


Output fram Super Gold Card 


Chi Sal apetaniced eliea arrest The 74LS373 contains 8 flop flops 
with a common clock (G), so that 
any data pattern will be latched on 
to the output when trigged by the 
strobe signal. The strobe signal is 

LCD Display Comections inverted, hence the 74LS04 
inverter chip. The 74LS04 has 6 
inverters, in this case only one Is 
used, 


| have shown the 36 pin cen 

tronics connector pin numbers so 

you can use the printer cable that 

Gnd came with your SGC. You will 

need a female centronics connect 

to be able to use this. These are available from the usual electronic component suppliers If you look in 

the SGC manual it shows the IDE pin header connections. This is another way of connecting to the 
SCS 


No power is available from parallel ports, unlike the USB to I2C converters, so arrangements have to 
be made to provide 5V to this circuit. When we move on to driving LCD displays, you will see such an 
arrangement. 


To test this circuit the same listing as shown above for the PC parallel port can be used. Again you 
can connect LED{s) in the same way, So anode to the output data line (Q0-Q7), then cathode to 
ground via a resistor (470 ohm). 


N 
s 
- 
wn 
w 
N 
w 


So now to connecting a 
LCD display, 


| have shown the 25 way 

D-Type connector pin *%® 
numbers if you are using a 
PC parallel port, and the 


LcDL 


LCD Display 


packet tant 
ann Vir con Rete Da DI 02 03 D4 0S oe 0? A 
é a 9 10 415 


data line numbers (Di to 

D7) for the SGC latch 9 ol) 
circuit. So if you are using gna} «25» 

a PC, combine this circuit on 

with the 25 way D-Type coe 

circuit at the beginning of ee 

this article. cre 

As you may see in the ae 

diagram to the right, there ae 

is a 5V regulator(Ui), this is Se ee 


used to supply the LCD 
display itself but can be also used to supply 5V to the SGC latch circuit. You can take the power for 
this from pin 3 (out) of Ul. 


So that deals with the hardware, but what about the software? Find below a listing which is common 
to all the following routines to show what can be done with a LCD display. This is not too different 
from the listing in the last 12C article, but has been changed for parallel port use. 


10 REMark Parallel LCD Experiments common routines 
20 REMark EPE Feb 1997, How to use intelligent LCD's 
30 init 

40 init_LcD 

50 clear_LCD 

900 PAUSE 


Se Oa Go ere a siaee 
eee rSei : x es ee 
ee PGS Rn | eek at ie ia es 


910 clear_LCD 

920 PRINT "End" 

940 PRINT#3;CHR$(0); 
950 CLOSE#3 

960 STOP 


970 : 


1000 
1010 


1020 
1030 
1040 
1050 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 


1190 
1200 


1210 


1220 
1230 


1240 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 


1560 : 


DEFine PROCedure init 

rs=2:rv=4:en=8:REMark rs is register select, rw is read/write (only needed for using 
display ram) 

OPEN#3 ; par 

CLS 

PRINT#3; CHR$(0);:REMark to set all parallel data lines to 0 

FOR r=1 TO 3:REMark This FOR NEXT loop is to ensure the LCD is in it initial mode which is 
8 bit interface mode, after power up. This does not reset the LCD Display. 

load_LCD 48,0 

NEXT r 

PRINT "Ensured LCD Display in 8 bit interface mode." 

PRINT#3;CHR$(0);:REMark to set all parallel lines to 0 

END DEFine init 


DEFine PROCedure init _LCD 

PRINT#3 ; CHR$(0);:REMark to set all parallel line to 0 

load_LCD 32,0:REMark Sets LCD to 4 bit interface mode 

PRINT "Set LCD to 4 bit interface mode." 

load_LCD 32,0:REMark LCD Function set to 2 line mode, ist Nibble 

load_LCD 128,0:REMark LCD Function set to 2 line mode, 2st Nibble 

REMark Note, be careful not to set D4(16) when addressing the Function Set register, since 
this will return the LCD to 8 bit interface mode. 

PRINT "Function Set to 2 line mode." 

load_LCD 0,0:REMark Sets LCD to Display ON, Cursor ON, Cursor Blicking, this is the Display 
On/Off & Cursor register, ist Nibble 

load_LCD 240,0:REMark Sets LCD to Display ON, Cursor ON, Cursor Blicking, this is the 
Display On/Off & Cursor register, 2nd Nibble 

PRINT "Set LCD to Display On, Cursor On and Cursor Blinking." 

load_LCD 0,0:REMark Sets LCD to Character Entry mode, Increment Cursor Position No Display 
shift, ist nibble. 

load_LCD 96,0:REMark Sets LCD to Character Entry mode, Increment Cursor Position No Display 
shift, 2st nibble. 

PRINT "Set LCD to Increment Cursor Position and No Display shift." 

END DEFine init_LCD 


DEFine PROCedure LCD_message(message$) 
mlen=LEN(message$) 

FOR me=1 TO mlen 

ms$=message$ (me) 

ms=CODE(ms$) 

nibi=(INT(ms/16) ) 

nib2=ms—(nib1*16) 
nibi=(nib1*16):REMark 1st nibble 
nib2=(nib2%16):REMark 2nd nibble 
load_LCD nibi,rs 

load_LCD nib2,rs 

PRINT ms$;" ASCI Character Number:";ms;" First Nibble:";nibi;" Second Nibble:";nib2 
NEXT me 

END DEFine LCD_message 


DEFine PROCedure move_second_line 

load_LCD 192,0:REMark Move to start of second line ist nibble. 
load_LCD 0,0:REMark Move to start of second line 2st nibble. 
PRINT "Moved to second line on LCD" 

END DEFine move_second_line 


DEFine PROCedure load_LCD(1ced_data, rsm) 

PRINT#3 ; CHR$(rsm) ; 

PRINT#3 ; CHR$(en+rsm) ; 

PRINT#3; CHR$(1led_dataten+rsm) ; 

PRINT#3 ; CHR$(1cd_datatrsm) ; 

REMark PAUSE:REMark Use this to step though the workings on the LCD. 
END DEFine load_LCD 


1570 DEFine PROCedure more_characters 

1580 PRINT "Press any key to see more of the character set u 
1590 PAUSE 

1600 clear_LCD 

1610 END DEFine more_characters 

1620 : 

1630 DEFine PROCedure clear_LCD 

1640 load_LCD 0,0:REMark clear LCD and return cursor to start, 1st nibble. 
1650 load_LCD 16,0:REMark clear LCD and return cursor to start, 2st nibble. 
1660 load_LCD 128,0:REMark reset display address to 0, ist nibble. 

1670 load_LCD 0,0:REMark reset display address to 0, ist nibble. 

1680 PAUSE 10:REMark giving time for display to respond to the last commands 
1690 END DEFine clear_LCD 

32000 DEFine PROCedure UPDATE 

32010 SAVE winil_parallel_LCD_common_bas 

32020 PRINT "Update Complete" 

32030 END DEFine UPDATE 


The common routine is annotated, so you can follow what is going on. Now the first experiment which 
will have the display, "QLToday Forever’ across two lines of the display. Assuming you are using a 
display with at least 2 lines. 


60 : 

70 LCD_message "QLToday" 
80 move_second_line 

90 LCD_massage "Forever" 
100 : 


Now in the second experiment, here we will make the LCD display all the character set. This is not the 
most compact program. But | have written this deliberately so you see what is going on. That some 
characters use standard ASCII code, but others do not. So shows you how to display the Chinese and 
Greek characters. Now | guess not many will need Chinese, but the symbols and Greek are useful. 


60 LCD_message " !#$%&'()¥+,—-/:3" 

70 move_second_line 

80 LCD_message "« => 270123456789" 

90 more_characters 

100 LCD_message "ABCDEFGHIJKLMNOP" 

110 move_second_line 

120 LCD_message "QRSTUVWXYZ" 

130 more_characters 

140 LCD_message "abcdefghijklmnop" 

150 move_second_line 

160 LCD_message "qrstuvwxyz" 

170 more_characters 

180 PRINT "Now the other characters" 

190 FOR e=91 TO 96:LCD_message CHR$(c):NEXT ¢ 

200 move_second_line 

210 FOR c=123 TO 127:LCD_message CHR$(c):NEXT c 

220 more_characters 

230 PRINT "Chinese Characters":REMark Now the LCD will display Chinese characters 
240 FOR c=160 TO 175:LCD_message CHR$(c):NEXT ¢ ; 

250 move_second_line 

260 FOR c=176 TO 191:LCD_message CHR$(c):NEXT c¢ 

270 more_characters 

280 FOR c=192 TO 207:LCD_message CHR$(c):NEXT ¢ 

290 move_second_line 

300 FOR c=208 TO 223:LCD_message CHR$(c):NEXT ¢ 

310 more_characters 

320 PRINT "Greek Characters":REMark Now the LCD will display Greek Characters" 
330 FOR c=224 TO 239:LCD_message CHR$(c):NEXT c 

340 move_second_line 

350 FOR c=240 TO 255:LCD_message CHR$(c):NEXT ¢c 

360 PRINT "All characters have now been displayed, press any key to clear LCD display and end 
program." 


This third experiment demonstrates display scrolling. 


60 a$="This demonstrates the LCD display scroll":REMark this line is 40 characters long, the 
capacity of one line on the LCD display. 

70 LCD_message a$ 

80 mlen=LEN(a$) 


90 PAUSE 100:REMark sets the delay before the display scrolls. 

100 FOR c=1 TO (mlen—16):REMark assuming a 16 character per line display. 

110 load_LCD 16,0:REMark Set scrolling one character position to the left, ist nibble 
120 load_LCD 128,0:REMark Set scrolling one character position to the left, 2nd nibble 
130 PAUSE 25:REMark Sets the speed the display scrolls. 


140 NEXT c 


The fourth and last experiment demonstrates setting up user defined graphics. The first 7 locations of 
the character set are user definable. This routine just addresses this first character with a stick man. 
Again | have written this deliberately so you see what is going on. 


60 load_LCD 128,0:REMark set display address to 0, ist nibble 

70 load_LCD 0,0:REMark set display address to 0, 2nd nibble. 

80 FOR a=0 TO 7 

90 LCD_message CHR$(a) 

100 NEXT a 

105 PAUSE 

110 load_LCD 64,0:REMark set CGRAM address to 0, ist nibble 

120 load_LCD 0,0:REMark set CGRAM address to 0, 2nd nibble. 

130 load_LCD 0,rs:REMark set character 1 address 0, 1st nibble 
140 load_LCD 224,rs:REMark set character 1 address 0, 2nd nibble. 
150 load_LCD 16,rs:REMark set character 1 address i, ist nibble 
160 load_LCD 16,rs:REMark set character 1 address 1, 2nd nibble. 
170 load_LCD 0,rs:REMark set character 1 address 2, ist nibble 
180 load_LCD 224,rs:REMark set character 1 address 2, 2nd nibble 
190 load_LCD 0,rs:REMark set character 1 address 3, ist nibble 
200 load_LCD 64,rs:REMark set character 1 address 3, 2nd nibble 
210 load_LCD 16,rs:REMark set character 1 address 4, 1st nibble 
220 load_LCD 16,rs:REMark set character 1 address 4, 2nd nibble 
230 load_LCD 0,rs:REMark set character 1 address 5, ist nibble 
240 load_LCD 64,rs:REMark set character 1 address 5, 2nd nibble 
250 load_LCD 0,rs:REMark set character 1 address 6, 1st nibble 
260 load_LCD 160,rs:REMark set character 1 address 6, 2nd nibble 
270 load_LCD 16,rs:REMark set character 1 address 7, ist nibble 
280 load_LCD 16,rs:REMark set character 1 address 7, 2nd nibble 
285 PAUSE 

290 clear_LCD 

300 FOR a=0 TO 7 

310 LCD_message CHR$(a) 

320 NEXT a 

You should see the display displaying rubbish to start with, this is normal. Once the routine has loaded 
the user defined graphic, the routine will display the first 7 character locations again, but the first one 


will now show the stick man. 
As | said before, these routines will work with the 12C LCD common routine published in my last article. 
Until next time have fun. 
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[Ed. The Chinese characters that lan Burkinshaw refers to are in fact Japanese.] 


Progrannmning fm Assembler, Part $1 
UilbGen - Library Generator > Part 1 


‘iby Nocman Dumibar oe 


iitreduction 
In the last issue, | looked at the creation and use of libraries with gwasl. 


Elsewhere in this issue you will hopefully find a few comments from George on the matter and a bit of 
an email conversation we had about how to work around the problem of only exposing the required 
routines in the libraries we create without exposing the internal working routines. 


For example, in my small example library, | would only expose the various CLEAR_xxx routines, but 
not the internal JUST_DOL_IT routine. Also, it is not required to expose any of the equates used 
internally by the library - simply because they may conflict with your own equates used elsewhere in 
the program and because, by the time the library is assembled, the equates have been converted into 
absolute values anyway. George mentioned editing the library source code, setting a new equate with 
a given prefix, to the routines you wish to expose, similar to the following: 


LB_CLEAR_SCREEN equ clear_screen 
In the above, you can see that I've set LB_CLEAR_SCREEN equal to CLEAR_SCREEN. 
When the symbol file is converted to text, it will have the following in it: 


CLEAR_SCREEN EQU %+$00000000 
LB_CLEAR_SCREEN EQU *+$00000000 
JUST_DO_IT EQU *+$00000012 


You can see that CLEAR_SCREEN and LB_CLEAR_SCREEN are the same. George proposed that a 
SuperBasic program could be quickly written to extract only those equates prefixed by, for example, 
'LB_’ and this extracted file could then be used to expose only the chosen routines. | liked this idea, 
but I'm sort of wary about having to edit my source code and add extra equates whenever | write a 
new routine. 


Equally, this is an assembler tutorial and at present I'm writing about the Pointer Environment, so how 
about a useful - yes, the first one - utility to read in a sym_Ist file, display all the code offset equates 
(and only those) and when the user has selected the desired items, write out a valid file that can be 
included. This issue's article is that very utility! 


LibGen 


I've chosen LibGen as my utility name. The : 
finished screen will hopefully look very similar | 
to the following screen shot: os oe aa = 
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Along the top is a green/white (paper 92) feinriteE. SS ————C~™S SY 
caption bar which is simply an_ information 


window. 


SQL Today > LibGen:: 


The actual title is itself embedded in another 
small information window with white paper. 


The move loose item and the Esc loose items 
are embedded within the main caption bar To 
keep code sizes to a minimum, there is no Size 
or Sleep loose items in this utility. 


Moving down the screen there is a large information window with a black border and white paper 
containing the 5 loose items - Sym file, Lid file, Bin file, Load and Save, and three further information 
Windows, each with white paper and a black border. 


The largest part of the window is taken up by an application window at the bottom. This too has white 
paper and a black border. This is where we will hold the code offset lines from the symbol file. 


In operation, you click on "sym file” to allow the name of the sym-_lst file in question to be edited. {f the 
edit succeeds, the "_sym_lst’ extension is removed and replaced with "_lib’ for the "Lib file” and "_bin’ 
for the "Bin file’. 


You can, however, edit these auto-generated names by hitting the appropriate loose item. When happy 
with the names, hit the ‘Load’ loose item to read in the file. The application window will fill up with 
appropriate options from the file and you will be able to choose the ones you wish to keep. 


By default everything is selected, you only need to deselect the ones you don't want to keep. !m 
working on the assumption that you will want to keep more than you don't, so it should be easier to 
deselect the few than select the many. 


Once happy with your selection, hit the "Save" loose item and the selected entries will be copied to 
the ‘Lib file” along with a line to include the ‘Bin file’, as the following example illustrates: 


CLEAR_SCREEN EQU *+$00000000 
CLEAR_TOP EQU ¥+$00000004 
CLEAR_BOTTOM EQU %¥+$00000008 
CLEAR_TO_EOL EQU ¥+$00000000 
CLEAR_LINE EQU %+$00000010 


lib winl_gwasl_libs_lib_ecls_bin 
Now all you need to do is add one line to your program's source: 


in wini gwasl libs_lib_cls_lib 


Hopefully, this is a lot easier than editing source code, adding extra equates, and running a SuperBasic 
program to extract them and so on. 


Window Design 


Make sure that you download the latest versions of SETW and Easy PEasy from 
http://gwiltprogs.info/page2.htm as George has recently updated these to make our lives much easier. We 
will be using the new features of Easy PEasy in this utility We begin by designing our window with 
SETW. Now, contrary to my own instructions above, | have to declare here that I'm not yet using the 
latest version of SETW! I'm also abbreviating the prompts etc in the following steps to try and keep 
coding to a minimum. 


1. Enter a name, | used libgenwin for mine, but feel free to make up your own. 
2, Enter the following text objects by pressing the 'N’ key, then typing in the text: 


QL Today - LibGen 
ES¢ 
Sym file 
Lib file 
Bin file 
Load 
Save 
Press ESC when cone. 
3. For the sprites, blobs and patters, simple press Esc as we have none of those. 
4, There is one single main window. 


5. There are 7 loose items within it. 
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6. There are 6 information windows. 

7. Information windows 1 to 4 have no objects, number 5 has one, and number 6 has none. 

8. There will be one application window, but it has no menu items. (We will build the menu dynamically) 
9, The main window has the following attributes: 


Shadow size 2 

Border size 1, border colour is QL Black. 
Paper colour is QL White. 

Select the default arrow sprite for the pointer. 


10, When prompted, twice, to select default settings for loose items, chose 'N’ both times. We will 
enter our own Seftings. 


11. The current item border size is 1 and the colour is QL Black. 
12. Unavailable attributes are: 


e Background colour is QL White. 
e Ink colour is QL Grey, 


13. Available attributes are: 


e Background colour is QL White. 
e Ink colour is QL Black. 


14. Selected attributes are: 


e Background colour is QL Green. 
@ {nk colour is QL Black. 


15. For the 7 loose items, set them up as follows: 
1. Type is text, choose the ‘Esc’ text, no selection key. 


2. Press the down arrow key to change “Text” to “Sprite”. In the next screen, press the down arrow 
to highlight "Move (sprite)’ and 


Press Enter. 

3. Type is text, choose the ‘Sym file’ text, selection key is 'S' and underlined. 

4. Type Is text, choose the ‘Lib file’ text, selection key is ‘L’ and underlined. 

5, Type is text, choose the ‘Load’ text, selection key is 'O’ and underlined. 

6. Type is text, choose the ‘Save’ text, selection key is 'V’ and underlined. 

7, Type is text, choose the ‘Bin file’ text, selection key is 'B’ and underlined. 
16. For the 6 information windows, set them up as follows: 

1. Border size zero, paper QL 92. 

2. Border size 1, colour QL Black, paper QL White. 

3. Border size 1, colour QL Black, paper QL White. 

4 Border size 1, colour QL Black, paper QL White. 


5. Border size 0, paper QL White. When prompted for an object, choose Text ‘QL Toady — LibGen’, 
set the ink to QL Black and the two CSizes to zero. 


6. Border size 1, colour QL Black, paper QL White. 
17. The application window needs the following: 


Border size 1. 

Colour QL Black. 

Paper QL White. 

Choose the standard arrow sprite. 
Set the selection key to TAB. 
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18. There now follows a session of pressing arrow keys and F2 etc to size and position all the loose 
items, information windows to build our window. The main window itself is first: 


© The size is 336 by 224. 
® The window is not a variable one. 
@ The pointer origin is 50 by 37. 


19, The 7 loose items should be sized and positioned as follows: 
1. 24 by 13 at 308 by 3. 
2. 24 by 13 at 278 by 3. 
3, 50 by 14 at 8 by 23. 
4,50 by 14 at 8 by 39. 
5. 28 by 14 at 300 by 23. 
6. 28 by 14 at 300 by 39. 
7.50 by 14 at 8 by 55. 
20. The 6 information windows should be sized and positioned as follows: 
1. 336 by 20 at 0 by 0. 
2. 332 by 53 at 2 by 20. 
3, 228 by 12 at 66 by 24. 
4, 228 by 12 at 66 by 40. 
5. 106 by 13 at 6 by 3. When prompted for the object, position it at O by 1. 
6, 228 by 12 at 66 by 56. 
21. The application window should be 332 by 148 and positioned at 2 by 75. 


You will notice that the screen looks a bit cluttered and the program prompts can be hard to see 
under all the loose items, information windows etc. 


When you are finished, the window will be displayed on screen. If it looks OK, all well and good, if not, 
don't worry, it can be fixed in the generated code, which should look as follows. We need to do some 
editing as well, but I'll cover that below. 


SYS_SPR de.w 0,1,2,3,4,5,6,7,8,9,10,11,12,13 txt5 de.w txt5_e-2-txt5 
de.w 14,15,16,17,18,19, 20,21, 22,23, 24 de.b "Load" 
de.w 25, 26,27, 28,29, 30,31, 32,33, 34,35 txt5_e ds.b 0 
de.w 36,37 ds.w 0 
+txt0 de.w +xt0_e—2-txt0 txt6 de.w txt6_e-2-txt6 
de.b "QL Today -— LibGen" de.b "Save" 
txtO_e ds.b 0 txt6_e ds.b 0 
ds.w 0 ds.w 0 
txtl de.w = txt4_e-2-txt1 app_list0 
ae.b "Rgen dc.w appw0-* 
txti_e ds.b 0 dew = 0 
ds.w 0) 
appw0 
txt2 de.w +xt2_e-2-+xt2 de.w 332 xsize 
de.b "Sym file" de.w 148 ysize 
txt2_e ds.b 0 de.w 2 xorg 
ds.w 0 ac.w 75 yorg 
de.w 0 flag 
txt3 de.w txt3_e-2-txt3 de.w 1 borw 
de.b "Lib file" de.w 0 bore 
txt3_e ds.b 0 de.w 7 papr 
ds.w 0 de.w 0 pspr * 
de.w 0 setr * 
txt4 dc.w txt4_e-2-txt4 de.w 0 draw * 
de.b "Bin file" de.w ahitO-* hit * 
txt4_e ds.b 0) de.w 0 entrl * 
ds.w 0 de.w 0 nxse 
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de.w 0 nyse de.w 24 yorg 
de.b 9 skey de.w 0 flag 
de.b 0 spri de.w 1 borw 
de.w 0 bore 
pobl4 de.w 7 papr 
de.w 102 xsize de.w 0 pobl * 
de.w 10 ysize 
de.w 0 xorg de.w 228 xsize 
de.w 1 yorg de.w 12 ysize 
de.b 0 type de.w 66 xorg 
de.b 0 spar de.w 40 yorg 
de.1 0 spce de.w 0 flag 
de.w txt0-* pobj * de.w 1 borw 
de.w -1 de.w 0 bore 
de.w 7 papr 
infw0 dc.w 0 pobl * 
de.w 336 xsize 
de.w 20 ysize de.w 106 xsize 
de.w 0 xorg de.w 13 ysize 
de.w 0 yorg de.w 6 xorg 
de.w 0 flag de.w 3 yorg 
de.w 0 borw de.w 0 flag 
de.w 0 bore de.w 0 borw 
de.w 92 papr de.w 0 bore 
de.w 0 pobl * de.w 7 papr 
de.w pobl4—*  pobl * 
de.w 332 xsize 
de.w 53 ysize de.w 228 xsize 
de.w 2 xorg de.w 12 ysize 
de.w 20 yorg de.w 66 xorg 
de.w 0 flag de.w 56 yorg 
de.w 1 borw dc.w 0 flag 
dc.w 0 bore dc.w 1 borw 
de.w 7 papr de.w 0 bore 
de.w 0 pobl * de.w vi papr 
de.w 0 pobl * 
de.w 228 xsize 
de.w 12 ysize de.w -1 end 
de.w 66 xorg 


SO far so good. Nothing in the above should differ from what you typed into SETW. If anything has 
been created in error, you can adjust it in the above. 


Coming next are the loose items definitions and it is here that we have to change a few things. 


In the first loose item below, the Selection Key has been set to 3. When we created this loose item in 
SETW, we didn't select a selection key for it. The first loose item is for Esc, and we give it a selection 
key of 3, which corresponds to the Cancel event code. 


The second of the loose items needs the selection key to be set to the event code of 5 for Move. {All 
changes below have comments.) 


Note: When using a system sprite, the sprite pointer has to point, relatively, at a word containing the 
sprite number. 


1itmo 
de.w 24,13 xsize, ysize 
de.w 308, 3 xorg, yorg 
de.b 0,0 xjst, yjst 
de.b 0,3 type, skey SKEY = ESC event. 
de.w txt1i-* pobj * 
de.w 0 item 


de.w afun0_0-* pact * 


de.w 24,13 xsize, ysize 

de.w 278, 3 xorg, yorg 

de.b 0,0 xjst, yjst 

de.b 2,5 type, skey SKEY = MOVE event. TYPE = sprite. 
de.w sys_spr+12-* pobj * POBJ = move sprite. 

de.w 1 item 


de.w afun0_1-—* pact * 


The next two loose items have their horizontal justification set to -1 which means “justify right’, Again, 
the changes from the code generated by SETW is highlighted in the comments. 


de.w 50,14 xsize, ysize 

de.w 8,23 xorg, yorg 

de.b -1,0 xjst, yjst XJST = right justify. 
de.b —1,83 type, skey 


de.w txt2—-* pobj * 
de.w 2 item 
de.w afun0_2-* pact * 


de.w 50,14 xsize, ysize 

de.w 8,39 xorg, yorg 

de.b -1,0 xjst, yjst XJST = right justify. 
de.b -1,76 type, skey 


de.w txt3-%* pobj * 
de.w 3 item 
de.w afun0_3-* pact * 


The remainder of the loose items are as generated, except for loose item number 6 which also needs 
to be right justified. Again, the comments note where the change has been made. Everything after the 
loose items is as generated. Note however that | have split the “flag” word below into “flag” and “shad”. 
SETW combines the two and generates a word for the flag byte and the shadow depth byte. | prefer 
to see them as they are, a pair of separate bytes. You can leave the word set to $8002 if you wish. 
The highest bit of the flag byte is set to clear the window. 


de.w 28,14 xsize, ysize 
de.w 300, 23 xorg, yorg 
de.b 0,0 xjst, yjst 
de.b -2,79 type, skey 
de.w txt5-* pobj * 


de.w 4 item 
de.w afun0_4—-* pact * 


de.w 28,14 xsize, ysize 

de.w 300, 39 xorg, yorg 

de.b 0,0 xjst, yjst 

de.b -3,86 type, skey 

de.w txt6-* pobj * 

de.w 5 item 

de.w afun0O_5-* pact * 

de.w 50,14 xsize, ysize 

de.w 8,55 xorg, yorg 

de.b -1,0 xjst, yjst XJST = right justify. 


de.b -1,66 type, skey 
de.w txt4—* pobj * 
de.w 6 item 

dc.w afun0_6-* pact * 


de.w ~1 end 
litm1 
de.w 16404,12 xsize, ysize 
de.w 0,0 xorg, yorg 
de.b 0,0 xjst, yjst 
de.b 0,0 type, skey 
de.w 0 pobj * 
de.w 0 item 
de.w 0 pact * 
de.w -1 end 
wd0 
dce.w 336 xsize 
de.w 224 ysize 
de.w 50 xorg 
de.w 37 yorg 
de.b 0 flag FLAG = clear the window. WAS A WORD! 
de.b 2 shad SHAD = shadow depth byte. 


de.w 1 borw de.w 224 ysize 
de.w 0 bore dce.w infwO-*  pinfo * 
de.w 7 papr de.w litm0-* plitem * 
de.w 0 sprt * 

de.w 1 curw de.w app_list0O-* pappl * 
de.w 0 cure de.w 16384 xsize 
de.w 7 uback de.w 12 ysize 
de.w 255 uink de.w 0 pinfo * 
de.w 0 ublob * de.w litmi-*  plitem * 
de.w 0 upatt * de.w 0 pappl * 
de.w 7 aback de.w -1 

de.w 0 aink 

de.w 0 ablob * 3; Sizes 

de.w 0 apatt * ww0_0 = equ 532 

de.w 4 sback ww0_1l equ 148 

de.w 0 sink 

de.w 0 sblob * 3; Status Areas 

dce.w 0 spatt * wst0 ds.b 71 

de.w 0 help wstO_e ds.b 0 

de.w 336 xsize ds.w 0 


End Of Chapter 31 


So, that's the end of the first part of creating a potentially useful utility running under the Pointer 
Environment. The next article will continue from where we left off and add some code. 


‘Glossary of ae etic Tari : 
“Pat Be i tO) les 


[initio 7! Ps 


| | and Lee Privett 

We continue here from where we ended last issue. ; 

Handshaking When extra control line(s) are used between devices to start, stop and regulate 
the flow of data. 

Hash The "#” symbol used to indicate a channel number, e.g. in PRINT #0,"Hello” 

HD (i) Hard Disk 
(ii) High Density, a type of floppy disk or its disk drive 

HDD Hard Disk Drive 

HDMI High-Definition Multimedia Interface, a high quality multimedia connection and 
interface for audio and video signals using one multicored cable 

Heap Name given to a fairly general storage area used by the operating system or in 
some Cases a user's program running on the computer. 

Hexadecimal Often abbreviated to "hex’, this is base 16 arithmetic where each digit is a value 


from 0 to 15, rather than 0-9 in the decimal system, with the numbers from 
decimal 10 to decimal 15 expressed as the letters A to F respectively, Because 
computers work in bits and bytes, this is a convenient numbering system as 
groups of 4 binary digits can be shown as one hexadecimal digits, and bytes 
can be expressed as 2 hexadecimal numbers, e.g. decimal 255 is the same as 
hexadecimal FF In SBASIC hexadecimal numbers are preceded by a “$’ character, 
such as $FF while on the PC for example it is common to precede hexadecimal 
numbers by Ox’ e.g. OXFF 


Hermes Not an abbreviation, this is the name for a replacement for the 8049 second 
processor in an original QL. It is sold by TF Services, and is designed to improve 
the handling of the keyboard, serial ports and so on. 


High Colour 


High Resolution 


HOT_REXT 


HOTKEY 
HTML 


I/O 
IDE 


I2C 
INT 


Internet 
Interpreter 


System used for displaying more than the usual number of QL colours on the 
screen. Usually used to refer to so-called 16-bit colour which means that 16 bits 
of computer memory are used to store the colour value for a single pixel of the 
display. 


When the screen on a QL compatible system is able to display more than the 
number of pixels possible with a standard QL (more than 512x256). For example, 
a QL emulator able to show a QL display 800 pixels wide by 600 pixels high 
might be described as High Resolution. 


Part of the Pointer Environment (or Extended Environment). This file controls the 
Hotkeys (see below), and provides a number of new words for the BASIC 
language, allowing control of hotkeys to start programs, or perform specific 
actions independent of the program you are using at the time. For example, you 
can define a hotkey which when pressed would start a copy of Quill whatever 
you were doing at the time. 


See HOT_REXT above. 


Hyper Text Markup Language {or Hyper Text Meta Language in the USA). A 
name for a language used to create pages for the World Wide Web. 


Inout/Output, or getting information in and out of a computer. 


Intelligent Drive Electronics or Integrated Drive Electronics. A method of connect- 
ing drives to computers, where the main interface electronics are part of the 
drive rather than the computer circuit board. IDE can also stand for Integrated 
Development Environment, where all programming tools for a task are brought 
together into one, rather than for example having to load an editor type in a 
program, save the program, run a compiler, and link files into one application. 


The bus system used by Minerva Mk 2 from TF Services 


Interrupt or Integer An interrupt is a signal to a microprocessor within a 
computer that occurs on a regular basis, normally 50 or 60 times a second, or 
from time to time as required. It means that something is demanding attention 
and time from the processor, requesting that the processor suspends what it's 
doing and diverts to whatever device or routine that needs the attention. An 
integer is a whole number, one that cannot have any decimal places. 


The name given to the global computer network connected by a modem 


An interpreter is a computer program that reads the source code of another 
computer program and executes that program. Because it is interpreted line by 
line, it is usually a much slower way of running a program than one that has been 
compiled but is easier for learners because the program can be stopped, 
modified and rerun without time-consuming compiles each time you make a 
small change. 


International QL Report, a QL magazine published by Seacoast Services in the 
USA and edited for many years by the publisher Bob Dyl. The magazine 
eventually ended in 1996, and was superseded by the magazine QL Today. 


The original name for Quanta, the QL user group, when it was first set up in 
1984. The letters stood for Independent QL Users Group. After a while, they 
decided it wasn't the easiest of names to pronounce and changed the name of 
the group to be the same as that of the group's newsletter, QUANTA. 


Industry Standard Architecture, an old style of adapter card used by QXL 


Integrated Services Digital Network. Basically a posh name for a digital 
teleohone network 


International Standards Organisation 


This was the last issue of Volume 16 and Voninie 17 is coming up aoe The issue | of Volnins 16 came with a DVD 
(included in the price) containing all previous issues of QL Today in PDF format - from Volume 1 to Volume 15, 
English and German (as long as German ones were produced). We are thinking about about another "goodie" next 
volume, but this also depends on the renewal situation. Saving on sending out reminders gives us extra pages to add 
to the magazine. So, if you have not renewed yet, please do so. 


You can subscribe by using this form Ge a copy of it), or subscribe online via www.QLToday.com (the form can be 
dowmoaced), by email, letter, fax etc. ... we are flexible! 


I fieeby gabsciiée to QL Today for 4 issues 5 of Voluine 17. The total price ie all joes issues is as lions: 
including postage and packing (depending on destination) 


Destination rice 
[_] Germany EUR 30.90 
[ | Rest of Europe EUR 33.90 or £29.90 (UK) 
[ | Rest of World EUR 38.90 
Please charge my credit card: [|] VISA [_] MasterCard [_] Diners Club 
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Card Verification Code: LT 


[|] Money transfer to one of the following accounts: 
[_] Deutschland: Jochen Merz, Account 493 50 431, Postbank Essen, BLZ 360 100 43 
(_] Osterreich: Jochen Merz, Account 85055317, PSK Wien, BLZ 60000 
|_| Switzerland: Jochen Merz, Account 60-690080-4, PostFinance, Clearing-Nr. 09000 
| |The Netherlands: Jochen Merz, Gironummer 3258439, Postbank NL Amsterdam 
|_| and from all other countries in EUR with IBAN and BIC to account 
Jochen Merz, Deutsche Postbank AG, IBAN: DE21 3601 0043 0611 1004 37 / BIC: PBNKDEFF 360 
[_] UK customers can pay £29.90 (price based on exchange rate at print time, valid until August 2012) to 
Jochen Merz, Account 83795395, Citibank UK, Sort code 30-00-45 
or send cheques in £ - no fee for UK sterling cheques (payable to Jochen Merz only)! 


[_] Payment via Paypal: Log into your paypal account and send the money (in EUR) to paypal@J-M-S.com 


Name: 
Street: 
Town: 
City: 
Country: 
EMail: 


Date, Signature. eee 


Please fill in and send to Jochen Merz Software, Kaiser-Wilh-Str. 302, 47169 Duisburg, Germany. 
or Fax to +49 203 501517 or scan & Email to SMSQ@J-M-S.com 


